vb6查询：如何打开在文本框中声明的表

您的代码示例缺少开头的

Do

语句，可能是一个over-site。另外，@nabuchodonossor是正确的，因为在循环结束时，最后一条记录的字段（0）的值最多为txtschair.Text。但是，您需要的帮助是构建一个字符串查询，在该查询中，您将用一个变量值替换字符串的一部分

private Command1_Click()

        Dim a as string

        a = text1.text
        OpenQuery "SELECT * FROM a WHERE Chair;"

        txtChair.Text = myRs.Fields(0).Value

        myRs.MoveNext
    loop 

end sub

---

请再想一想：怎么可能在一个文本框中放入未知数量的行（并且由于*在您的“选择未知数量的列”中）。看看datagrid或类似的组件。flexgrid是vb6的一部分（尽管据我记忆，它必须单独安装）

Private Command1_Click()
    Dim a as string

    a = text1.text
    'this query isn't right, but not sure what to do with it
    'this is something like normally "WHERE Field = 'Chair'"
    OpenQuery "SELECT * FROM " & a & " WHERE Chair;"  'The & concatenates the separate strings

    Do While rs.EOF = False
        txtChair.Text = myRs.Fields(0).Value
        myRs.MoveNext
   Loop 

End Sub