Set dbPanda = DBEngine.Workspaces(0).Databases(0)
               
                strSQL = "SELECT * FROM FinalConfirm WHERE (((FinalConfirm.RefNo) Like '*" & getOrgRefNo(Forms![F_FConf]![cboRefNo]) & "*'))"
               
                Set rsPanda = dbPanda.OpenRecordset(strSQL, dbOpenSnapshot)
               
                With rsPanda
                    If Not .EOF Then
                        If MsgBox("System will delete the old data", vbOKCancel + vbQuestion, "FinalConfirm") = vbOK Then
                        Do While Not .EOF
                                [bo].Delete[/bo]
                                .MoveNext
                            Loop
                        End If
                    End If
                    .Close
                End With
                Set rsPanda = Nothing
                dbPanda.Close

在 [bo].Delete[/bo]这里提示错误：
这是什么原因啊？
我已经试了很多方法都不行！
有谁能帮我解决下！

已经解决了，数据的问题，没有操作权限。
这段代码没问题的。

哦.. 又学到了一个咯.. 呵呵