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