Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strconn As String
Dim ss As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
strconn = "Driver={sql server};server=127.0.0.1;uid=sa;pwd=;database=TestDB
ss = "Select * From TABLENAME"
conn.Open strconn
conn.Execute ss
rs.Open ss, conn, adOpenKeyset, adLockOptimistic
Do While Not rs.EOF
Combox1.AddItem rs.Fields(0)
rs.MoveNext
Loop
Set rs = Nothing