Find Command

I have a find command button that appears to call the find and replace message box. It should be a search for anything in my query. The code behind the button looks like the find and replace message box in the office suite. I believe I am trying to create a message box where you add an entry and it searches then lauches a subform with my entries.

When I checked the button it had the following code:
Private Sub cmdFind_Click()
On Error GoTo Err_cmdFind_Click

Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_cmdFind_Click:
Exit Sub

Err_cmdFind_Click:
MsgBox Err.Description
Resume Exit_cmdFind_Click

End Sub

I read a few of the lookup queries but they only give me a drop down. Is there some way to customize the box comes up without altering all of Office or do I just sound lost.