Hola Margarita, 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
-------------------------------------------------------------------------
Un saludo
