Deleting record when using Data Control

Sub cmdDelete_Click ()
Data1.Recordset.Delete
If Data1.Recordset.RecordCount = 0 Then
'Moves to EOF marker to clear bound fields
Data1.Recordset.MoveNext
Msgbox "There are no more records."
cmdDelete.Enabled = False
Data1.Enabled = False
cmdAdd.Enabled = True
Else
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End If
End Sub
Validate event for Data Control

Private Sub Data1_Validate (Action As Integer, Save As Integer)
' if a save is occurring, check save with user. Cancel and refresh if
' user doesn't want change.
Dim iResponse As Integer
If Save = True Then 'Data has changed and is being saved
iResponse As Integer = MsgBox ("Really want to save?", vbYesNo)
If iResponse = vbNo Then
Save = False
Data1.UpdateControls ' Refresh fields
End If
End If
End Sub
Error event (i.e. DB Error) for Data Control

Private Sub Data1_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then 'Duplicate Key error
MsgBox "Enter unique Emp ID number"
txtEmpID.SetFocus
Response = 0
Else
Response = 1 'display standard error message
End If
End Sub
Modifying SQL for a Data Control