菜鸟问题，在线等

Question

Private Sub Combo1_click()
    Dim lm As String, sql As String
    Combo2.Clear
    Select Case Trim(Combo1.Text)
           Case "产品表"
                lm = "[product]"
           Case "信息表"
                lm = "[trade]"
           Case "会员表"
                lm = "[user]"
           Case "商家表"
                lm = "[importer]"
    End Select
    
    sql = "SELECT TOP 1 id AS Expr1, * From " & lm
    rs.Open sql, conn, 1, 1
           For i = 1 To UBound(rs.Fields) - 1    '这里错了，提示：不是一个数组
               Combo2.AddItem rs.                '这里不知道怎样取得列的名字
           Next
    rs.Close
End Sub
就这两问题

Answer 1

For i = 0 To rs.Fields.Count - 1
     Combo2.AddItem rs.Fields(i).name
Next
字段的第一个Index是0

Answer 2

rs.files.count-1;
Combo2.AddItem rs.files(i).name
re.files(i).values  是每列的值