关于删除记录的一个问题！！（请各位高手解答。）

Question

我是用Adodc控件。‘删除’按钮出的错误我无法解决！！有时删除记录好使，但是有时不好使，出现错误！！
我的程序是：
       Dim s As String
s = MsgBox("要删除当前记录吗？", 4, "删除当前记录！")
If s = vbYes Then
 DoEvents
 Adodc1.Recordset.Delete
 DoEvents
 Adodc1.Recordset.MovePrevious
Else
 Adodc1.Refresh
End If
出错信息是：
    实时错误 ‘-2147467259（80004005）
   键列信息不足或不正确。更新影响到多行

Answer 1

Dim S As String
S = MsgBox("要删除当前记录吗？", 4, "删除当前记录！")
If S = vbYes Then   sql = "select * from 表名 where  字段名= '" & Trim(Text1.Text) & "'"
   Adodc1.RecordSource = sql
   Adodc1.Refresh
   Adodc1.Recordset.Delete
   Adodc1.Recordset.MoveNextEnd If

Answer 2

我用的是sql數据庫,有遇到過這種情況,你去試試看.