Søgefunktion ???

Hej

Jeg har siddet og stirret mig blind på dette her, jeg VED det burde virke:

strSQL = \"SELECT * FROM items WHERE name LIKE \'%pynt%&\'\"
\'MsgBox (strSQL)
Set objRS = objDB.OpenRecordset(strSQL)
If objRS.EOF Then
msgbox (\"I found something\")
Else
msgbox (\"I didn\'t find anything\")
End If

Den siger bare den ikke finder noget, men hvis jeg fyrer denne SQL af på den :
strSQL = \"SELECT * FROM items WHERE name=\'julepynt\'\"

Så funger det fint, nogle forslag til hvordan jeg lige får løst dette lille problem ?

Takker :)