Cita:
Iniciado por franko1809 
Que tal tio me parece que tambien se puede hacer en un combo simple no lo he probado pero yo cargo los datos de una tabla en un Datacombo de esta manera
Código:
Dim rsCliente As Recordset
Public Function LlenarCliente()
Set rsCliente = New Recordset
rsCliente.Open "SELECT * FROM cliente", dbConex, adOpenStatic, adLockOptimistic
'********************
dtcCliente.BoundColumn = "CodClie"
dtcCliente.ListField = "NomClie"
Set dtcCliente.RowSource = rsCliente
'*******************
End Function
El combo simple no tiene esas propiedades
El componente del datacombo es Micrisoft DataList control 6.0
Que tal gracias por la ayuda, ya configure el codigo de acuerdo a mis necesidades, solo que no me muestra ninguna informacion mi codigo quedo de la siguiente manera
Cita: Public Function LlenarCliente()
Set rsCliente = New Recordset
rsCliente.Open "SELECT * FROM tblpotencia", BD, adOpenStatic, adLockOptimistic
DataCombo1.BoundColumn = "potencia"
DataCombo1.ListField = "id1"
Set DataCombo1.RowSource = rsCliente
End Function
Saludos y gracias por la ayuda