执行删除记录时的错误！！！请教高手帮忙指导！

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]这里提示错误：
这是什么原因啊？
我已经试了很多方法都不行！
有谁能帮我解决下！