نمایش پیغام هنگام حذف رکورد ازdatagrid؟؟؟؟

[rahim_shirkhani]

نمایش پیغام هنگام حذف رکورد ازdatagrid؟؟؟؟از دوستان پیشاپیش ممنونم

[silverado]

If Data1.Recordset.RecordCount > 0 Then
If MsgBox(" Are You sure delet file ", vbExclamation + vbYesNo, "Warning") = vbYes Then
Data1.Recordset.Delete
Data1.Refresh
End If

[rahim_shirkhani]

می خوام واسه دکمه حذف که در دیتاگرید بصورت ویزارد درست کردم پیغام بگذارم، چیکار کنم؟؟؟