如何消除DBGrid控件取消删除后的提示？

Question

下列代码：
Private Sub DBGrid1_BeforeDelete(Cancel As Integer)
If MsgBox("真的要删除此记录吗?", vbOKCancel + vbExclamation) = vbCancel Then
Cancel = True
End If
End Sub当取消删除时，出现系统给出的对话框提示：
“该操作被关联对象取消。”如何使这个多余的提示不出现？

Answer 1

Private Sub DBGrid1_BeforeDelete(Cancel As Integer)
If MsgBox("真的要删除此记录吗?", vbOKCancel + vbExclamation) = vbCancel Then
Cancel = True
exit sub
End If
End Sub

Answer 2

即使没有人能回答，也可以UP。
如果17：30没有其他人UP，100分就归没有给出正确答案的大维了！