关于combo控件与数据源的绑定问题！

Question

各位大虾，请问假定ACCESS数据库中的某一个表的一个字段通过“查阅向导”设计该字段在“1，2，3，”三个数字中取值，请问假如在界面窗体中使用一个combo控件，如何使Combo与该字段绑定，从而程序一运行，“1，2，3”就自动出现在Combo的下拉列表中！

Answer 1

Dim myres As New ADODB.Recordset
    Dim conn As New ADODB.Connection
    conn.Provider = "Microsoft.Jet.OLEDB.4.0"
    conn.Open App.Path & "\你的access数据库名.mdb"
    
    strSQL = "SELECT distinct 列名 from 表名"
    myres.Open strSQL, conn, adOpenStatic
       
    Combo1.Clear
    Combo1.AddItem ""
    
    If myres.RecordCount > 0 Then myres.MoveFirst
    
    Do While Not myres.EOF
        Combo1.AddItem myres!列名
        myres.MoveNext
    Loop
    
    conn.Close
    
    myres.Close
    
    If Not myres Is Nothing Then
        Set myres = Nothing
    End If