VB6 ayuda porfavor

[aavg]

Espero que no lo tomes a mal, pero pienso que lo que tu necesitas es un buen libro de Bases de Datos o en su caso un buen tutorial, porque lo tuyo mas que duda es desconocimiento total, pero aqui va la respuesta a tu pregunta

Suponiendo que tienes un formulario con un ListBox (ListBox1) y un Boton (Command1). Una base de datos llamada "Prueba.mdb" que contiene una tabla llamada "Table1". Ahora si podemos continuar.

En tu formulario copia y pega este codigo y listo


'Declaracion de variables para abrir la base de datos
Public Cnn As New ADODB.Connection
Public Rst As New ADODB.Recordset

'Al cargar el formulario se abre la base
'Y se cargan todos los datos de la tabla
'en este ejemplo la base de datos access es PRUEBA.MDB
'Y la tabla se llama TABLE1
Private Sub Form_Load()
Cnn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\Prueba.mdb"
Cnn.Open

With Rst
.ActiveConnection = Cnn
.LockType = adLockReadOnly
.CursorType = adOpenStatic
.Open "Select * from Tabla1"
End With

End Sub

'Al pulsar el boton Command1 se llena el ListBox
'En este caso en la linea= List1.AddItem Rst.Fields(0)
'el numero 0 que esta en parentesis debes remplazarlo
'por un numero que indique la posicion del campo deseado
'comenzando a numerar por el cero, claro esta.

Private Sub Command1_Click()
Dim Contador As Integer

For Contador = 1 To Rst.RecordCount
List1.AddItem Rst.Fields(0)
Rst.MoveNext
Next

End Sub