Que tal solo para comentarles q ya me quedo el codigo es el siguiente por si a alguien le sirve
Cita: Option Explicit
Dim potencias1 As ADODB.Recordset
Private Sub DatosPotencias()
Dim sql As String, cadena As String
cadena = id.Text
Call VisualizarPotencias
sql = "SELECT * FROM tblpotencia WHERE id1 Like '" & cadena & "' ORDER BY potencia"
Set potencias1 = New ADODB.Recordset
potencias1.Open sql, BD, adOpenKeyset, adLockOptimistic
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
Muchas gracias a todos por la ayuda
Saludos