ayuda con esto please

[blackrocha]

hola saben q quiero generar esta coneccion con mysql y esta consulta para llenar el combo q esta en la bd pero no funca podrian ayudarme porfa

aqui nose si se dice cuales son public algunos atributos de la coneccion como en acces cuando se declarar las bariables public y todo eso.

porlomenos ami me muestra el combo, no me emvia ningun mensaje d error
de la coneccion pero quiero q el combo este lleno y no muestra nada de los registros que quiero q me muestre

Public Sub abrir_db()
cnn_str = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;pwd=;database=JA VIER;connection=adUseClient"
Set miconexion = New ADODB.Connection
miconexion.CursorLocation = adUseClient
miconexion.Open cnn_str
End Sub


Private Sub Combo1_Change()
abrir_bd
sql = "select * "
sql = sql + "from personas "
MsgBox (sql)
Set myset = db.OpenRecordset(sql)
myset.MoveFirst
While Not myset.EOF
cmb_proveedor.AddItem (myset.NOMBRE)
myset.MoveNext
Wend
End Sub