VB6中DATAgrid 自己弹出个警告提示怎么屏蔽

VB6中DATAgrid 自己弹出个警告提示如何屏蔽
Private Sub DataGrid1_BeforeDelete(Cancel As Integer)
  If rs.Fields(0) = "0000" Then
  MsgBox "不能删除管理员", vbOKOnly, "提示"
  Cancel = True
  End If
End Sub

我在程序中定义了第一个字段为“0000”的记录不能删除，这可以实现。但是问题是这程序连我写的MSGBOX 会弹出两次，第二次是“操作被取消”的一个警告框，如何将后面这个警告框去掉啊，谢谢各位指点

[解决办法]
在删除的代码里加一句 On Error Resume Next 即可,如下所示
Private Sub Command2_Click()
On Error Resume Next
Adodc1.Recordset.Delete
End Sub

[解决办法]
楼上说的在理，我试了下，确实是这个

VB code

Private Sub DataGrid1_Error(ByVal DataError As Integer, Response As Integer)    Response = 0'    MsgBox DataGrid1.ErrorTextEnd Sub