Problems with find/search

Hi, i am relatively new to Access, I have Access 2002.

I have created a contacts form but have a problem when i click on the find button. I click on this to try and search for a companies contact information and the following happens:

I get a box appear saying.
Compile error, Variable not defined.


Underneath the error message the following is displayed and highlighted yellow:


Private Sub cmdFind_Click()
'Flag1 and Flag2 are Global variables
On Error Resume Next
Screen.PreviousControl.SetFocus
If Screen.ActiveControl.ControlType = acComboBox Then
DoCmd.OpenForm "frmFind", , , , , acDialog, Me.Name & "^" & Screen.ActiveControl.Name & "^" & Screen.ActiveControl.RowSource
'Flags are set by frmFind
Select Case Flag1
Case "FindFirst"
DoCmd.FindRecord Flag2
Case "FindNext"
DoCmd.FindNext
End Select
Else
RunCommand acCmdFind
End If
End Sub


Any help would be greatly appreciated, i have tried using the help option but it doesnt help me.

Please can someone help me????

Thanks
emma

Try something like this...

thankyou

thankyou for replying, i will give it a try.