If you are trying to do this with vba you need to set it up like
Dim criteria as string
criteria = "9*"
in the SQL part of the query you need to rewrite the WHERE part like so
Where rst.fieldname Like '" & criteria & "'
This is a (single quote) (double quote) & criteria & (double quote)...