Cita:
Iniciado por mumo2006 
Estimados.
Necesito de vuestra ayuda, esta para saber cual es el codigo para cargar un combobox en una aplicacion que poseo de bodegaje. Esto desde una base de datos en access 2003. (VB6) La conexión ya la tengo y funciona sin problemas. Esta hecha con un ODBC, ya que la base de datos esta alojada en un host de una red y la aplicacion accede a ella desde otro host (varios).
Mi codigo de conexion es el siguiente:
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim txtsql As String
con.Open ("dsn=bodega")
On Error Resume Next
Cabe señalar que funciona sin problemas en consultas y todo. Pero el problema lo tengo al no saber como cargar el combobox con los datos de una tabla, en este caso la tabla tb_productos y el campo nom_producto.
Me podrían dar alguna ayuda, ya que estoy un poco trabado en este elemento.
Gracias
Bueno, podrías crear un recordset a la tabla y con un bucle mostrar el campo en el ComboBox, basicamente sería algo asi:
rs.Open "Select * From tb_productos", con
Do Until rs.EOF()
Combo.AddItem rs!nom_producto
rs.MoveNext
Loop 