[求助]怎么样才能将数据库中的内容列在列表框中?

Question

Dim rst As ADODB.Recordset
    Set rst = gCnn.Execute("select field1 from table") 'gCnn--connection对象1.用ListBox
    Do Until rst.EOF
        listbox1.AddItem rst!field1
        rst.MoveNext
    Loop2.用DataList
    With DataList1
        .BoundColumn = "field1"    '绑定字段   
        Set .DataSource = rst      '绑定记录集
        .ListField = "field2"      '显示字段
        Set .RowSource = rst       '显示记录集
    End With

Answer 1

用For Next或Do While Loop

Answer 2

ADODB.Recordset是什么类型啊?