我在编写通讯录删除功能的代码时
用的是如下语句

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语句报错 而且系统提示说
“多步操作产生错误 请检查每一步的状态值”
到底是什么原因啊
恳请各位指教

就是啊 我也觉得奇怪 都说没问题 可我一运行它就报错 到底错在什么地方呢
难道是某个属性没设好还是什么铺垫没打好 对于可能出错的未知的因素 我觉得很困惑
对于报错的语句提示 斑竹能不能看出什么端倪 如果有的话 望明示 谢谢

[此贴子已经被作者于2006-7-7 17:07:48编辑过]

谢谢两位了 尤其要感谢斑竹 现在我的问题解决了 就不再麻烦了
再一次的致谢