Access - Recorset a informe con ADO

Private Sub Form_Open(Cancel As Integer)

   Dim cn As ADODB.Connection

   Dim rs As ADODB.Recordset

   'Crear un nuevo objeto Conexión ADO

   Set cn = New ADODB.Connection

   With cn

      .Provider = "Microsoft.Access.OLEDB.10.0"

      .Properties("Data Provider").Value = "Microsoft.Jet.OLEDB.4.0"

      .Properties("Data Source").Value = _

          "C:\Archivos de programa\Microsoft Office\Office10" & _

          "\samples\Neptuno.mdb"

      .Open

   End With

   'Crear una instancia de la clase Recordset de ADO y

   'establecer sus propiedades

   Set rs = New ADODB.Recordset

   With rs

      Set .ActiveConnection = cn

      .Source = "SELECT * FROM Clientes"

      .LockType = adLockOptimistic

      .CursorType = adOpenKeyset

      .Open

   End With

   'Establecer la propiedad Recordset del formulario como el objeto Recordset de ADO

   Set Me.Recordset = rs

   Set rs = Nothing

   Set cn = Nothing

End Sub

Private Sub Form_Unload(Cancel As Integer)

   'Cerrar la conexión ADO abierta

   Dim cn As ADODB.Connection

   Set cn = Me.Recordset.ActiveConnection

   cn.Close

   Set cn = Nothing

End Sub