删除可以用以下代码:
Dim Ans As Integer
'调用delete方法删除记录
'在删除记录之前，最好对用户有一个警告
Ans = MsgBox("确定删除嘛？", vbYesNo, "警告")
If Ans = vbYes Then
Adodc1.Recordset.Delete
End If