mira hace unos años tube esa duda y unos compañeros me mandaron esto espero te sirva:
Si no entendi mal queres llenar un listbox con los datos de un campo de una tabla, si es asi es esto:
While Not rst_tmp.EOF
List1.AddItem rst_tmp.Fields(1)
rst_tmp.MoveNext
Wend
donde rst_tmp es tu recordset, List1 tu listbox y el valor 1 es el orden del campo del cual queres extraer los datos. Los campos se numeran de izquierda a derecha empezando por cero. Es decir si tu tabla tiene 3 campos se numeraran 0, 1, 2.
************************************************
pon los nombres de tus controles, la base de datos en la cadena de conexión y la tabla a la que quieres acceder
Private Sub Form_Load()
Dim Gado_conn As ADODB.Connection
Dim Gado_rec As ADODB.Recordset
Dim S_cad As String
Dim I_num as Integer
'Creo un objeto Connection para abrir la conexión mediante ADO
Set Gado_conn = New ADODB.Connection
Gado_conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tubasededatos.mdb;Persist Security Info=False"
'Creo un objeto Recordset
Set Gado_rec = New ADODB.Recordset
Gado_rec.ActiveConnection = Gado_conn
Gado_rec.CursorLocation = adUseClient
Gado_rec.CursorType = adOpenKeyset
'Me aseguro que está cerrado para cerrarlo
If Gado_rec.State <> adStateClosed Then
Gado_rec.Close
End If
'Defino la consulta
Gado_rec.Source = "SELECT * FROM tabla"
'Abro el recordset
Gado_rec.Open
While Not Gado_rec_tmp.EOF
'SI SOLO QUIERES METER EN EL LIST UN CAMPO
tulist.AddItem Gado_rec(0)
' 'SI QUIERES METER EN EL LIST TODOS LOS CAMPOS
' 'Este código valdrá para cualquier consulta(tenga los campos que 'tenga)
' S_cad=""
' For I_num = 0 To Gado_rec.Fields.Count - 1
' S_cad=S_cad & Gado_rec(I_num) & " - "
' Next
' tulist.AddItem S_cad
Gado_rec.MoveNext
Wend
Gado_rec.Close
End Sub
*************************************************
saludos
