**解决方案：**使用传递查询将数据从存储过程获取到子窗体中

将以下代码添加到子窗体RecordSource字段中
Select * from YourPassThruQueryName
在Form_Load（）中
Dim qdf as DAO.QueryDef
Set qdf = CurrentDb.QueryDefs("YourPassThruQueryName") ' If it exist
Set qdf = CurrentDb.CreateQueryDef("YourPassThruQueryName") ' If you have to create one
您必须有一个默认的Select语句，因此请使用如下语句：
qdf.sql = "Select * from anyTable where 0=1"
Set qdf = Nothing

重要！

必须使用以下代码刷新子窗体，因为重新查询将不起作用：
Me.frm_Your_Sub_Form_Name.SourceObject = "frm_Your_Actual_Sub_Form_Name"

最终决定

当您在“提交”按钮中选择存储过程所需的内容时，请使用以下代码更新子窗体：
Private Sub btn_Submit_Click()
Dim rs_tmp as DAO.Recordset
Dim qdf as DAO.QueryDef
Dim sp as String
x1米11米1x
Set qdf = CurrentDb.QueryDefs("YourPassThruQueryName")
qdf.Connect = adoConnectionString ' This is your Connection string for SQL Server
qdf.sql = sp
qdf.ReturnsRecords = True
Set rs_tmp = qdf.OpenRecordset
If Not rs_tmp.EOF Then
Me.frm_Your_Sub_Form_Name.SourceObject = "frm_Your_Actual_Sub_Form_Name"
rs_tmp.Close
x1米20英寸1x
Set rs_tmp = Nothing
Set qdf = Nothing
End Sub

• • 解决方案1：**

将从存储过程返回的记录集分配给Form.Recordset对象
在代码末尾添加此行

Set Me.Recordset = cmd.Execute

• • 解决方案2：**

可以基于ODBC数据源创建传递查询，并将其用作记录源
然后，在窗体的属性表中设置属性：

record source = your_pass_through_query
recordset type = dynamic

• • 编辑：**

我的建议是使用解决方案2来避免许多ado设置和运行时错误
示例：使用northwind和存储过程进行传递
将窗体中的控件与查询结果集的字段名绑定

Private Sub Form_Open(Cancel As Integer)
   test
End Sub

Sub test()
   Dim qdf As DAO.QueryDef, rst As DAO.Recordset
   Set qdf = CurrentDb.CreateQueryDef("")
   qdf.Connect = "ODBC;Driver=SQL Server;Server=xxxx;database=northwind;Trusted_Connection=Yes;"
 
   ' stored procedure with paramete
   qdf.SQL = "exec [CustOrderHist] 'ALFKI'"

   qdf.ReturnsRecords = True
   Set rst = qdf.OpenRecordset
 
   Set Me.Recordset = rst
End Sub