Здравствуйте, samodelkin, Вы писали:

S>Нужен пример рекордсета, работающего с параметрическим запросом ...

С какой базой-то работаете? С Access'ом?

    Dim db As Database, rs As Recordset
    Dim qq As QueryDef, Var1 as Integer
    
    Set db = CurrentDb
   
    Set qq = db.QueryDefs("qrtWithParametr")

    qq.Parameters("parNumber1") = 1

    Set rs = qq.OpenRecordset

    var1 = r.Fields(0)
    
    Set rs = Nothing
    Set qq = Nothing
    Set db = Nothing

Если работаете с ADO, то смотрите в MSDN'e "Command Object Properties, Methods, and Events", "Parameter Object Properties, Methods, and Events".
Успехов, Привет Карандашу, Буратино, Незнайке и другим веселым человечкам