关于COMBO控件，谢谢

Question

VB+ACCESS
ADO对象如何让COMBO控件连接ACCESS表中的一组数据？例：ACCESS：
字段：班组
内容：班组1，班组2，班组3......如何让COMBO读出“班组”中的数据？我是这样做的，但是不行。
       .
       .
       .
set combo1.datasoSource = tB
combo1.DataField = tB.Fields(0).Name
       .
       .
       .

Answer 1

Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from 表名", CN, adOpenDynamic, adLockOptimistic
    Do Until Rs.EOF
        Combo1.AddItem Rs.Fields("班组")
        Rs.MoveNext
    Loop