try to use DlookUp friend :
Dim rslt as String
rslt = DLookup("[lastName]", "Clients", "LastName='" & Me.lastName & "'")
If Me.NewRecord Then
If Not (IsNull(rslt)) Then
MsgBox ("The Client Name is already registered Plz Choose Another ..")
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, ...