下面语句刚刚做成，并通过测试。
Private Sub Command5_Click()
If (Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF) Then
MsgBox "无记录可删除", , "提示"
End If
While Not Adodc1.Recordset.EOF()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Wend
MsgBox "记录已经全部清除！", vbOKOnly, "提示"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024