[求助]数据库删除问题
我在编写通讯录删除功能的代码时
用的是如下语句
Private Sub Command3_Click() '删除联系人信息
If Adodc1.Recordset.RecordCount > 0 Then
a = MsgBox("您确实要删除这条数据吗?", vbYesNo)
If a = vbYes Then '删除当前记录
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
If Adodc1.Recordset.EOF = False Then
Adodc1.Recordset.MoveNext
Else
Adodc1.Recordset.MoveFirst
End If
End If
End If
End Sub
可是在运行程序的时候总是Adodc1.Recordset.Delete语句报错 而且系统提示说
“多步操作产生错误 请检查每一步的状态值”
到底是什么原因啊
恳请各位指教