dim conn As New ADODB.Connection
dim rst As New ADODB.Recordset
dim sql As String, cn As String
Private Sub Form_Load()
cn = "dsn=mis;uid=sa;pwd=;"
conn.Open cn
If rst.State Then rst.Close
sql = "select 要显示的字段 from 表 where 条件
rst.Open sql, conn, adOpenKeyset, adLockPessimistic
Do While rst.EOF = False
Combo1.AddItem rst!要显示的字段
rst.MoveNext
Loop
end sub