search using text box

[EdwardA]

Im trying to do a wildcard search with an unbound text box
to access data out of many tables. My basic search works
fine, but when I add the ability to search with the
criterion * before or after the known values, the data
table returns no results at all on open.

Here is my code.
================================

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "STOCK_WHSE27"
ssDocName = "STOCK_OUT"
srDocName = "TECH_RMA_Log"

ssLinkCriteria = "[Model Number]=" Like "*" & Me!
[Text1] & "*"
DoCmd.OpenForm ssDocName, , , ssLinkCriteria

stLinkCriteria = "[Model Number]=" Like "*" & Me!
[Text1] & "*"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.RunCommand acCmdTileHorizontally

Exit_Command3_Enter:
Exit Sub
=================================

Any help on this would be appreciated. Thanks.