Параметры ADODB Command (MS SQL Server) - VB

Формулировка задачи:

Не могу передать параметры в объект Command. Вот фрагмент кода.

cmd.ActiveConnection = cnn
cmd.CommandType = adCmdText
cmd.Prepared = True
cmd.NamedParameters = True
cmd.CommandText = 
cmd.Parameters.Append cmd.CreateParameter(, adSmallInt, adParamInput, , ParamValue)
 rst = cmd.Execute

На последней строке вылетает ошибка
Must declare the scalar variable "@id"
Что я неправильно делаю и как надо делать?

Решение задачи: «Параметры ADODB Command (MS SQL Server)»

textual
                            Листинг программы 
                        
                            cmd.Activeconnection=cn
cmd.CommandText="select distinct XBLNR from dbo.ingr_sklfo_import where isnull(opera,'') <>'' and XBLNR<>'' and blart='D1' and strec=?"
cmd.commandType=1

set rs=cmd.execute(rows_affected, Array(usernrec))