VB Trouble With CancelEvent

I have a form that automatically adds a EmployeeID if one doesn't exist and allows the user to enter a name, etc. The problem is, many employees mess up writing their ID on the order forms or write someone elses. To avoid multiple entries being entered without knowing it, I made a form pop up listing duplicates if there are any. If the user tries to exit the form without taking care of the problem, I want them to have trouble doing it so they are sure they want to leave duplicates for whatever reason.

The problem: The following code is what I wrote as an event for On Close of my duplicates form, but after choosing "Yes", the form still closes instead of staying open (After running my "It's working" message)....

Code:Private Sub Form_Close()Dim db As ObjectDim rst As ObjectDim sqlrst As Stringsqlrst = "select Employees.FirstName, Employees.LastName from Employees where (((Employees.FirstName)='" & Me.FirstName & "') AND ((Employees.LastName)='" & Me.LastName & "'))"Set db = Application.CurrentProject.ConnectionSet rst = CreateObject("ADODB.Recordset")rst.Open sqlrst, db, 1 ' 1 = adOpenKeysetIf rst.RecordCount > 0 Then If MsgBox("Closing this form now will allow duplicate employee names! Would you like to delete the duplicate entries now? Please press Yes and delete any duplicates.", vbYesNo) = vbYes ThenGoTo CancelEnd IfEnd IfDoCmd.RunSQL "DELETE Lookup.* FROM Lookup"GoTo TheEndCancel:MsgBox "It's Working"DoCmd.CancelEventDoCmd.OpenForm "USAAemployeesDup"TheEnd:End Sub

Any help on this would be greatly appreciated!

Regards,

Philip.