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

      Si estás interesado en este artículo, puedes bajarte un proyecto con el ejemplo, del apartado Demos, el nombre es: Ado y ListView.