使用可视化设计 Access 的 SQL Server 数据库存储过程传递查询时，无法动态指定其存储过程的参数。因此，我们只能通过 VBA 程序创建传递查询，这时我们构造该查询的 SQL 语句，以达到目的。

Sub printMyProcResults(startDate as Date, endDate as Date)

    Dim db as DAO.Database

    Dim qf as DAO.QueryDef

    Dim rs as DAO.Recordset

    Set db = CurrentDb()        

    Dim db as DAO.Database

    Set qf = db.CreateQeuryDef("")   ' 创建临时的查询

    ' 如果存储过程有记录返回，设置为 True，否则设置为 False

    qf.ReturnRecords = True

    ' 设置 SQL Server 数据库的 ODBC 连接字符串

    qf.Connect = "ODBC;DRIVER=SQL Server;SERVER=MYSERVER;Trusted_Connection=Yes;DATABASE=MYDATABASE;"

    ' 构造传递查询的 SQL 语句，示例：myStoreProc 起始日期, 结束日期

    qf.SQL = "myStoreProc '" & Format(startDate, "dd mmm yyyy") & "'," & _

                         "'" & Format(endDate, "dd mmm yyyy") & "'" 

    ' 打开返回的记录集

    Set rs = qf.OpenRecordSet()

    ' 在立即窗口打印记录集内容

    Do While Not rs.EOF

       debug.print rs(0)

       rs.MoveNext

    Loop

    rs.Close

    ' 清理

    Set rs = Nothing

    Set qf = Nothing

    Set db = Nothing

End Sub