Añade la referencia al proyecto: Microsoft ActiveX Data Objects 2.6 Library.
Private Sub combo1_click()
Dim cnn as New ADODB.Connection
Dim rst As New Adodb.Recordset, strSql As string
'Abro la conexión con la base de datos
cnn.Open cadena_conexion
'Creo la consulta SQL
strSql = "Select campo1, campo2 From tabla1"
'Cargo el RecordSet con los datos de la consulta
Set rst = cnn.Execute (strSql)
'Le asocio el recordset
Set combo1.DataSource = rst
'Le indico el campo a mostrar
combo1.DataField = rst("campo1")
cnn.close
Set rst = Nothing
End Sub
Si no me equivoco esto era algo asi, es que hace bastante que no hago algo asi.
Espero que te sirva.
Saludos,
Roberto García
