Custom error message problem (1 Viewer)

Option Compare Database
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const conErrDuplicateKey = 3022
Select Case DataErr
   Case conErrDuplicateKey
      MsgBox "The Employee Number you entered already exists."
      Response = acDataErrContinue
   Case Else
      ' It's an unexpected error.  Let Access handle it.
       Response = acDataErrDisplay
End Select
End Sub
 
Private Sub cmdContinue_Click()
Dim rs As Object
Dim lngBookmark As String
    'set a variable to the current record
    lngBookmark = Me.EmployeeID
    
    'open the new form
    DoCmd.OpenForm "frmIndividualDataEdit"
    'take it to the selected record
    Set rs = Forms!frmIndividualDataEdit.RecordsetClone
    rs.FindFirst "EmployeeID = '" & lngBookmark & "'"
    Forms!frmIndividualDataEdit.Bookmark = rs.Bookmark
    Set rs = Nothing
    DoCmd.Close acForm, "frmAddNewJoin"
    
End Sub
 
Private Sub EmployeeID_AfterUpdate()
    If Me.Dirty Then Me.Dirty = False
End Sub