Нужно довести до ума код ADODB

[B]Option Compare Database[/B]
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
 
[B]Private Sub Form_Load()[/B]
 
Set cn = CreateObject("ADODB.Connection")
cn.Provider = "Microsoft.ACE.OLEDB.12.0"
cn.Open "D:\access\Access 09.mdb"
 
Set rs = CreateObject("ADODB.Recordset")
 
rs.Open "SELECT * FROM Orders RIGHT JOIN Clients ON Orders.CustomerID = Clients.ClientID;", cn, adOpenStatic, adLockReadOnly
 
Set Form.Recordset = rs
 
Me.txt_ClientID.ControlSource = "ClientID"
Me.txt_ClientName.ControlSource = "ClientName"
Me.txt_OrderTotal.ControlSource = "OrderTotal"
 
Me.RecordSelectors = False
 
End Sub

rs.Close
Set rs = Nothing

rs.Close
Set rs = Nothing
 
cn.Close
Set cn = Nothing

Option Compare Database
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
 
Private Sub Form_Load()
On Error Resume Next
 
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
 
cn.Provider = "Microsoft.ACE.OLEDB.12.0"
 
cn.Open "Z:\пример.mdb"
 
rs.CursorLocation = adUseClient
 
rs.Open "SELECT * FROM Detail ORDER BY [Detail].DtDateModify", cn, adOpenStatic, adLockReadOnly
 
Set Form.Recordset = rs
 
Me.txt_DtID.ControlSource = "DtID"
Me.txt_MtID.ControlSource = "MtID"
Me.txt_DtThick.ControlSource = "DtThick"
Me.txt_DtMass.ControlSource = "DtMass"
Me.txt_DtPerimeter.ControlSource = "DtPerimeter"
Me.txt_DtContCount.ControlSource = "DtContCount"
 
Me.RecordSelectors = False
 
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

cn.Provider = "MSDataShape"