this is my delete code:
Private Sub cmdDelete_Click()
Dim strMessage As String
Dim intOptions As Integer
Dim bytChoice As Byte
strMessage = "Are you sure you want to Delete this Record?"
intOptions = vbQuestion + vbOKCancel
bytChoice = MsgBox(strMessage, intOptions)
If bytChoice = vbCancel...