各位高手：我有个问题请教哈
一个ado控件，名为Adodc1；三个command控件，名分别为cmdadd\cmddelete\cmdupdate;一个datagrid控件，名为datagrid1.在添加以下代码后，能在datagrid上做“添加”“删除”“更新”，但是当我在添加输入数据的过程中，光标一但定位行错误就会出现“无法为更新定位行，一些值可能已在最后一次读取后已更改”的错误提示，而且只能终止程序。请版主指教该怎么添加错误处理代码才能消除这种情况。
Private Sub cmdadd_Click()
On Error Resume Next
cmdadd.Enabled = False '有问题
Adodc1.Recordset.AddNew
cmddelete.Enabled = False
cmdupdate.Enabled = True
End Sub
Private Sub cmddelete_Click()
On Error Resume Next
If MsgBox("真的要删除当前记录吗?", vbYesNo, "信息提示") = vbYes Then '有问题
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
If Adodc1.Recordset.BOF Then
cmddelete.Enabled = False
End If
End If
End If
End Sub
Private Sub cmdupdate_Click()
'更新记录
On Error Resume Next
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
cmdupdate.Enabled = False
cmddelete.Enabled = True
cmdadd.Enabled = True
End Sub

晕,还是没人理我啊,我真的是很急啊,干脆我出100点,求助解决了,如果少再加,联系我:343427739,xiaoxu_cc@,我快疯了,这剩一个环节了,请大家帮忙啊

操作完成后再进行查询操作，将查询结果set给adodc1控件。

还是不太明白,能否说清楚点,在线等给分!