Can anyone see a problem with this Recordset please?

I'm getting the error below.

If i remove the param1 code and insert the parameter value directly in to the select statement, it works fine!!!

Really scratching my head over this one

Many Thanks

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC SQL Server Driver][DBMSLPCN]ConnectionWrite (WrapperWrite()).
/fulltext2.asp, line 21

Dim RSProducts__param1
RSProducts__param1 = "cem ac"
If (Request("searchme") <> "") Then
RSProducts__param1 = Request("searchme")
End If
Dim RSProducts
Dim RSProducts_cmd
Dim RSProducts_numRows

Set RSProducts_cmd = Server.CreateObject ("ADODB.Command")
RSProducts_cmd.ActiveConnection = MM_myconn_STRING
RSProducts_cmd.CommandText = "SELECT TOP (100) PERCENT dbo.Products.ProductID, dbo.Products.CategoryID, dbo.Products.ManufacturerID, dbo.Products.Product, dbo.Products.Image, dbo.Products.Price, KEY_TBL.RANK, KEY_TBL.[KEY] FROM dbo.Products INNER JOIN FREETEXTTABLE(Products, Product, ?) AS KEY_TBL ON dbo.Products.ProductID = KEY_TBL.[KEY] ORDER BY KEY_TBL.RANK DESC"
RSProducts_cmd.Prepared = true
RSProducts_cmd.Parameters.Append RSProducts_cmd.CreateParameter("param1", 200, 1, 255, RSProducts__param1) ' adVarChar

Set RSProducts = RSProducts_cmd.Execute
RSProducts_numRows = 0