Private Sub BDELETE_Click()
On Error GoTo Err_BDELETE_Click
Dim Response As String
Dim Cancel As Integer
Response = acDataErrContinue
If MsgBox("Delete this record?", vbYesNo, "Delete Confirmation") = vbYes Then
If MsgBox(" Are you SURE you want to delte this Record?" & vbCrLf & _
"This will...