Conexión ADO.
En este ejmplo, se ilustra la conexión a una base de datos mediante el modelo de datos ADO, mostrando los registros de una Tabla en un control ListView.
Option Explicit
Dim oConn As Connection, oRst As Recordset, NewItem As ListItem
Private Sub Form_Load()
'Se crean las instancias a los objetos conexión y recorset.
Set oConn = New Connection
Set oRst = New Recordset
'Abre la conexión asignando el tipo de modelo de datos.
oConn.Open ("Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Persist Security Info=False;Data Source=" & App.Path & "\Fichero.mdb")
'Abre el recorset y lo rellena con los datos de la tabla.
oRst.Open "NombreTabla", oConn, adOpenForwardOnly, adLockReadOnly
'Hasta que sea fin de fichero (Eof).
Do Until oRst.EOF
'Crea una nueva entrada en el ListView.
Set NewItem = ListView1.ListItems.Add(, , oRst(0))
'Añade el resto de los campos de la consulta al ListView.
'Esto se podría hacer con un bucle For.
NewItem.SubItems(1) = oRst(1)
NewItem.SubItems(2) = oRst(2)
...................
NewItem.SubItems(n) = oRst(n)
'Mueve al siguiente registro.
oRst.MoveNext
Loop
'Cierra la conexion y libera los objetos.
oRst.Close
oConn.Close
Set oRst = Nothing
Set oConn = Nothing
End Sub
Esto te puede servir de guia con lo que ocupes. saludos
