cargar datos a un combobox de VB6 desde una tabla creada en Mysql

[abrahamvj]

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql$

Set cnn = New ADODB.Connection
cnn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=99.999.99.99;" _
& "DATABASE=MIBASEDEDATOS;" _
& "UID=miusuario;PWD=miclave;PORT=3306;OPTION=131072 "

cnn.Open

Set rst = New ADODB.Recordset

sql$ = "select campo from tabla"

With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql$, cnn, , , adCmdText
End With

Combo1.Clear

rst.MoveFirst

Do
Combo1.AddItem rst.Fields!Campo.Value
rst.MoveNext
Loop Until rst.EOF


Set rst = Nothing
Set cnn = Nothing

Abraham