Pass parameter

I write this SQL quary :

PARAMETERS Parametr Text ( 255 );

SELECT tbl1.code, tbl1.Desc
FROM tbl1
WHERE tbl1.Desc Like "*" & [Parametr] & "*";

it works very well in Access. but when I pass the parameter with VB I got an empty recordset , can you help me with it ?

I'm not sure but you could try % instead of *

Thanks but it did not work.

use like " & somevariable& "*'"

this will work i think

thanx and regards
sundar

Sorry about my last message , its working now
here is the right way to do it (like Bigley told me to do , so thanks to him )

PARAMETERS Parametr Text ( 255 );

SELECT tblTreeDesc.TreeCodeDesc, tblTreeDesc.TreeDesc
FROM tblTreeDesc
WHERE (((tblTreeDesc.TreeDesc) Like ("%" & [Parametr] & "%")));