Private Sub Llenar_Combo()
'referencia a: Microsoft ActiveX Data Objects 2.0 Library
 
Dim tCampo     As Field
Dim tRecordset As Recordset
 
    Set tRecordset = Nothing       'limpar el objeto
    Set tRecordset = New Recordset 'crearlo
 
    'acá dos formas de abrir el recordset, indicando la tabla a la q queremos acceder
    'tRecordset.Open "SELECT * FROM Nombre_Tabla", Conex, adOpenDynamic, adLockOptimistic
 
    tRecordset.Open "Nombre_Tabla", Conex
    'Conex es una variable tipo string que almacena la cadena de conexion
 
    With Combo1
        .Clear 'limpiando el combo
        'se recorre la tabla
        For Each tCampo In tRecordset.Fields
            .AddItem tCampo.Name 'asignando los nombre de los campos
        Next
        .ListIndex = 0
    End With
 
    'Cerrar el recordset y la conexión
    tRecordset.Close
End Sub
 
Private Sub Form_Activate()
    Llenar_Combo
End Sub