如何将一个查询中的表名用另一个查询替代

zzcjp

在以下代码中：
If strTableName <> "" Then
        DoCmd.Hourglass True
        On Error Resume Next
        Set con = Application.CurrentProject.Connection
        stsql = "SELECT * FROM " & strTableName & ";"
        Set rst = CreateObject("ADODB.Recordset")
        rst.Open stsql, con, 1     ' 1 = adOpenKeyset
        rst.MoveLast
        rst.MoveFirst
我需要将表名变量【strTableName】用一个查询名来取代，从而读出查询的结果，将查询名“业务员查询”直接替代表名，运行的结果：“业务员查询”表没有内容。可见不可简单替代。请教版主，我应该如何实现？
谢谢！

[ 本帖最后由 zzcjp 于 2008-5-10 01:06 编辑 ]

zzcjp

ganrong元老请指教，是否该用别的方式可以解决这个问题，我的查询文件名是从别的窗口传递过来的，该查询是多表符合查询。能不能改用别的打开方式解决？请直接帮我改写代码。谢谢！