What do I have to do to get the following code to work?



'Calls up input box to find the desired record
Private Sub cmdFind_Click()
mstrClientLastName = InputBox("Enter the Last Name", "Find")
If mstrClientLastName <> "" Then
mrstClientLastName.FindFirst "fldClientLastName = " & "'" & _
mstrClientLastName & "'"
If mrstClientLastName.NoMatch = True Then
MsgBox "Cannot find " & mstrClientLastName, vbInformation, "Atlantic Marketing"
End If
End If
End Sub