Agregar datos de una consulta a Combo

[culd]

Código:

Private Sub DatosPotencias()
    Dim potencias As ADODB.Recordset
    Dim sql As String, cadena As String, cadena1 As String
        cadena = id1.Text
    Call VisualizarPotencias
        sql = "SELECT * FROM tblpotencias WHERE id1 Like '" & cadena & "' ORDER BY id1"
    Set potencias = New ADODB.Recordset
        potencias.Open sql, BD, adOpenKeyset, adLockOptimistic
    If potencias.BOF = False Or potencias.EOF = False Then
         potencias.MoveFirst         
         Do While potencias.EOF = False
               combo1.additem potencias("ELCAMPO")
               potencias.MoveNext
         Loop
    End If
End Sub

Lo que hace es si hay registros (osea si no es el fin del archivo) recorre con un mientras todos los registros y va abregando al combo... ahi donde dice ELCAMPO ingresas el campo que queres que cargue...