Como cargar combobox con registros de una tabla

[ernestoelunico]

yo use esto pero con excel

Private Sub Form_Load()


'Variable de tipo Aplicación de Excel
Dim objExcel As Excel.Application

'Una variable de tipo Libro de Excel
Dim xLibro As Excel.Workbook
Dim Col As Integer, Fila As Integer

'creamos un nuevo objeto excel
Set objExcel = New Excel.Application

'Usamos el método open para abrir el archivo que está _
en el directorio del programa llamado archivo.xls
Set xLibro = objExcel.Workbooks.Open(App.Path + "\lb.xls")

'Hacemos el Excel Visible
objExcel.Visible = false

With xLibro

' Hacemos referencia a la Hoja
With .Sheets(1)

'Recorremos la fila desde la 1 hasta la 15
For Fila = 1 To 15

'Agregamos el valor de la fila que _
corresponde a la columna 1
Combo1.AddItem .Cells(Fila, 1)
Next

End With
End With

'Eliminamos los objetos si ya no los usamos
Set objExcel = Nothing
Set xLibro = Nothing

End Sub