据我所知，无法显示包含记录集的VBA实例的数据表。如果记录集的源是strQSL，则可以使用结果创建一个表，然后打开该表，或者更优雅地创建queryDef并打开它：

Sub ShowQd(strQdName As String, strSql As String)
'creates queryDef and display it in a datasheet'
    Dim qd As DAO.QueryDef

    Set qd = CurrentDb.CreateQueryDef(strQdName)
    With qd
        .ReturnsRecords = True
        .SQL = strSql
    End With
    DoCmd.OpenQuery strQdName
End Sub

如果您专注于显示事物，则还可以将ListBox放在表单中，将其Number of
columns设置为查询（qd.Fields.Count）返回的字段数，并将strSql设置为ListBox的RowSource。AND
…如果您将所有相关代码放在该表单中，那么您现在可以拥有一个表单，可以将其导入任何数据库中以快速显示您想要的内容：）
祝您好运！