Private Sub Form_Load()
  Dim  dbConnection As New ADODB.Connection
  Dim  dbRecordset As New ADODB.Recordset
-- Открываем коннекцию
  With dbConnection
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Open csDbPathName
  End With
-- Открываем рекордсет
  With dbRecordset
      .CursorType = adOpenKeyset
      .LockType = adLockOptimistic
      .Open "Table", dbConnection, , , adCmdTable
  End With

  Set Me.Recordset = dbRecordset
End Sub

Private Sub Form_Load()
  Dim cn As ADODB.Connection
  Dim rs As ADODB.Recordset
  
   'Create a new ADO Connection object
   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 = CurrentProject.FullName + ".mdb"
      .Open
   End With

   'Create an instance of the ADO Recordset class, and
   'set its properties
   Set rs = New ADODB.Recordset
   With rs
      Set .ActiveConnection = cn
      .Source = "SELECT * FROM PI_Controllers"
'      .Source = "PI_Controllers" - один хрен
      .LockType = adLockOptimistic
      .CursorType = adOpenKeyset
      '--------------
      ' Этого у MS нет но без него тоже хрен.
      .CursorLocation = adUseClient '  без этого - просто хрен.
      '--------------
      .Open
   End With
   
   'Set the form's Recordset property to the ADO recordset
   Set Me.Recordset = rs
   Set rs = Nothing
   Set cn = Nothing
End Sub

Sub Form_Open(Cancel As Integer)
   Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset

   'Create a new ADO Connection object
   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:\Program Files\Microsoft Office\Office10" & _
          "\Samples\Northwind.mdb"
      .Open
   End With

   'Create an instance of the ADO Recordset class, and
   'set its properties
   Set rs = New ADODB.Recordset
   With rs
      Set .ActiveConnection = cn
      .Source = "SELECT * FROM Customers"
      .LockType = adLockOptimistic
      .CursorType = adOpenKeyset
      .Open
   End With

   'Set the form's Recordset property to the ADO recordset
   Set Me.Recordset = rs
   Set rs = Nothing
   Set cn = Nothing
End Sub

Form_Unload(Cancel As Integer)
   'Close the ADO connection we opened
   Dim cn As ADODB.Connection
   Set cn = Me.Recordset.ActiveConnection
   cn.Close
   Set cn = Nothing
End Sub