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 ="delete from class where 姓名='" & txt_c.text & "'" 是吗？
我测试过了，根本没用，不信你自己测试下

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

谢楼上的大哥我再试下看看