Visual Basic - Rellenar Combobox con una BD

Me gustaría poder poner las opciones de un combo leyendolas de una base de datos, y no metiendolas a mano.

Hola
Porque no utilizas el DbCombo, tiene que asociarle un data, en las propiedades .ListView seleccionas el campo que quieres que te liste (muestre), en .Boundcolumn colocas el campo o dato que quieres que te devuelva cuando el usuario seleccione uno, lo demas tienes que investigar tu.

Saludos desde Chile

felipe

PD.: para que no te modifiquen los datos en la BD tienes que cambiar el Style a 2

te aconsejo que te crees una función a este estilo:
public sub add2DAO(rs as recordes,cbo as combobox, nombrecampo as string)
do until rs.eof
cbo.additem rs![Nombrecampo]
rs.movenext
loop
exit sub
rs es el recordset que has creado para rellenar
cbo es el combo a rellenar
nombrecampo el campo que utilizarás
Sobre esta base puedes hacer muchas variaciones.
Un saludo!

Es mejor si utilizas un Data Combo Con ADO
En este ejemplo
Donde "CnnMain" es una Coneccion ADO y "rsFarmacias" es Un Recordset que contiene la informacion que queremos en el Combo

SQL = "SELECT Nombre as Nombre, IDFarmacia"
SQL = SQL & " FROM Farmacias"
SQL = SQL & " ORDER BY Nombre"
Set rsFarmacias = CnnMain.Execute(SQL)
With DcboFarmacia
.ListField = "Nombre"
.BoundColumn = "IDFarmacia"
Set .RowSource = rsFarmacias
End With

PD. Esto Funciona en VB6.0