Private Sub cmd_del_Click()
If Me.txt_c.Text = "" Then
MsgBox "删除条件不能为空!"
Exit Sub
End If
Adodc1.RecordSource = "select * from class where 姓名=" '&txt_c.text&"'"
If Adodc1.Recordset.RecordCount <= 0 Then
MsgBox "数据库中没有该项记录可供删除!"
Else
Adodc1.Recordset.Delete
DataGrid1.ReBind
DataGrid1.Refresh
MsgBox "删除成功!"
End If
End Sub
---------------------------------------------------
以上代码不知道哪错了？该删的记录没删掉，不该删的却被干掉了，急啊，请大哥们指正下，感激涕零！

Adodc1.RecordSource = "select * from class where 姓名='" & txt_c.text & "'"

呵呵，大哥，小弟我无知么你帮我更正一下嘛，谢谢

啥意思？还不清楚，看仔细点。

Adodc1.RecordSource = "select * from class where 姓名='" & txt_c.text & "'"
------------------------------------------------------------------------
你的意思是改成Adodc1.RecordSource ="delete from class where 姓名='" & txt_c.text & "'" 是吗？
我测试过了，根本没用，不信你自己测试下

Adodc1.RecordSource = "select * from class where 姓名='" & txt_c.text & "'"
Adodc1.Refresh

大哥，adodc1.refresh  也不行啊，本来我输入的删除条件是XX，但是XX还是没被删除，而是其他记录被删除了

行不行？行结了，不行继续！

用execute的delete来删除，快捷，高效，而且不容易出错

姓名后面是引用TXT_C.TEXT的值不用那么多引号的.
Adodc1.RecordSource = "select * from class where 姓名= txt_c.text "
还要重新定义数据源 和 当前记录 试试下