vb+access，如果数据库中有相同的记录（需要有相同的记录），怎样实现只删除一条？

datagrid控件与adodc控件绑定，用来实现查询，结果在datagrid中显示，如果我只想删除当前记录，而当前记录又与其他记录是完全相同的，该怎么办？我用下面的代码，结果把所有的重复记录都删了

Private Sub CmdDelete_Click()
 Myval = MsgBox("是否真的删除该数据？", vbYesNo)
 If Myval = vbYes Then
    On Error Resume Next
    Adodc1.Recordset.Delete
    Adodc1.Recordset.Update
 End If
End Sub

请大家帮忙，谢谢 --------------------编程问答-------------------- 这种方法应该是只删除一条记录吧

具体加入我们的QQ群一起交流

群号 31012129

补充：VB ,  数据库(包含打印，安装，报表)