Gracias avellaneda por responder pero no me kedo claro algo ..
mira lo q tengo hasta ahora
Código:
Private Sub Command1_Click()
Dim BD As ADODB.Connection
Dim RecSQL As ADODB.Recordset
Set BD = CONECTAR()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "select * from provs", BD, adOpenStatic, adLockOptimistic
End Sub
abri el recorset y ahora los RecSQL.Fields() como se los asigno a un combo box..
o como uso el control qm e comentaste?