Как передать параметр открываемому отчету Access? - VB

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

База - MSSQL SERVER 2012
клиент - VB6
Для отчетов использую проект Access 2007 .adp
Отчет имеет источником записей хранимую процедуру с параметром.
Что-то меня переклинило, никак не придумаю, как передать параметр

Set gAccessApp = CreateObject("Access.Application")
    With gAccessApp
        .OpenAccessProject App.Path & "\db.adp", False
        .CurrentProject.OpenConnection "Provider=SQLOLEDB.1;Password=..."
        .DoCmd.OutputTo acOutputReport, "rpt", acFormatPDF, App.Path & "\rpt.pdf"
    End With

прововал так:

gAccessApp.DoCmd.OpenReport "rpt", acViewDesign
    gAccessApp.Reports("rpt").RecordSource = "dbo.sp_rpt " & Parameter

не понимает (

Решение задачи: «Как передать параметр открываемому отчету Access?»

textual
                            Листинг программы 
                        

                            Set gAccessApp = CreateObject("Access.Application")
    With gAccessApp
        .OpenAccessProject App.Path & "\db.adp", False
        .CurrentProject.OpenConnection "Provider=SQLOLEDB.1;Password=..."
        .DoCmd.OpenReport "rpt", acViewDesign
        .Reports("rpt").InputParameters = "@ID int=" & ID & ", d Date='20170701'"
        .DoCmd.OutputTo acOutputReport, "rpt", acFormatPDF, App.Path & "\rpt.pdf"
    End With

                        