Private Sub Form_load ()
Dim rsProductos As New Adodb.RecordSet, strSql as String, conexion as String
strSql = "SELECT Nombre FROM Productos"
conexion = ' Lo tendras que igualar a la cadena conexion que te convenga dependiendo de la base de datos con la que vas a atacar.
'Aqui abres el recordset con la consulta especificada anteriormente de SQL
rsProductos.Open strSql, conexion, 3 ,1
'Bucle donde cargarás el listbox
Do while rsProductos.EOF
Nombrelistbox.addItem rsProductos("Nombre")
rsProductos.MoveNext
Loop
rsProductos.close
Set rsProductos = Nothing
End Sub
Esto funciona perfectamente, lo único que tienes que hacer es poner en conexión la cadena de conexion correspondiente a la base de datos con la que vas a atacar.
Un saludo,
Roberto García
