Search Query

Alright guys, I have a question. I have this form that serves as a search query. What happens is I have it set up to enter information in the text box in the form header and then have it update the detail section. It works just fine if I put exact information but I want to be able to search for say, "Sam" and have it produce "Same Person" and "Sam Hokins" or whatnot (just an example)

Here's my code for the command button:

Private Sub Find_Click()
On Error GoTo Err_Find_Click

Dim LSQL As String
Dim LSearchQry As String

LSearchQry = SearchQry

LSQL = "select * from tblAddressBook"
LSQL = LSQL & " where ClientName LIKE '" & LSearchQry & "'"

Form_frmFindClient.RecordSource = LSQL

MsgBox "Results have been filtered with Client Names containing " & LSearchQry & "."

SearchQry = ""

Exit_Find_Click:
Exit Sub

Err_Find_Click:
MsgBox Err.Description
Resume Exit_Find_Click

End Sub


Thanks!