Agregar datos de una consulta a Combo

[spiderman78]

Iniciado por 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...

Que tal gracias por la ayuda ya probe el codigo, pero me marca un error el cual me dice q el operador obdc no admites las propiedades solicitadas, y me lo marca en esta linea

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--------------> error
If potencias.BOF = False Or potencias.EOF = False Then
potencias.MoveFirst
Do While potencias.EOF = False
Combo2.AddItem potencias("potencia")
potencias.MoveNext
Loop
End If
End Sub

Saludos