Private Sub Delete_mouseClick()
On Error Resume Next
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "结果已为空"
Else
Adodc1.Refresh
Adodc1.Recordset.delete
CountDel = CountDel + 1
DataGrid1.Refresh
DataGrid1.Caption = "已删除" & CountDel & " 条信息"
End If
End Sub