Like and Search String

[Lin]

Hi All thanks in advance.
Highlight:: Using an unbound list box and unbound text on form. Coding for
search in text box as follows:

Dim txtSearchString As Variant
Dim strSQL As string

txtSearchString = Me![txtFirstName].Text

strSQL = "SELECT DISTINCTROW tblpeople.peopleID, tblPeople.FirstName FROM
tblPeople"
strSQL = strSQL & "WHERE ((tblPeople.FirstName) Like '" & txtSearchString &
"*')"

etc... It all works well enough, as I type into text box the results start
to appear.
My Question then is this, assume I have a pereson with first names (Margaret
Jean)
If I type Jean I do not see it. If I type *Jean I see all marg...Jean...
How can I incorporate this into the Like statement with the wildcard.
Notice I have
an astrick already. Any help would be greatly appreciated.

 

[Lin]

I am batting a 1000 today, ignore question, found answer, brain no longer
working.