Dim rst as ADODB.Recordset
Set rst = New ADODB.Recordset
Set rst = Forms!Кредиторка.RecordsetClone

]Dim cnn as ADODB.Connection
Dim rst as ADODB.Recordset
Dim strSQL as String
set cnn=CurrentProject.Connection
Set rst = New ADODB.Recordset
    strSQL =  "SELECT Контрагент.[Контрагент УН], Контрагент.[Краткое наименование], Вход_кредиторка.[Предоплата вход],
Вход_кредиторка.[Задолженность вход], Оборот_оплачено.[Оборот оплачено] AS [Оборот оплаты],
Оборот_задолженность.[Оборот задолженность] AS [Оборот задолженности],
Исх_кредиторка.[Предоплата исх], Исх_кредиторка.[Задолженность исх], Контрагент.Кредиторка "  & _
             "FROM (((Контрагент LEFT JOIN Исх_кредиторка ON Контрагент.[Контрагент УН] = Исх_кредиторка.[Контрагент УН])
LEFT JOIN Вход_кредиторка ON Контрагент.[Контрагент УН] = Вход_кредиторка.[Контрагент УН])
LEFT JOIN Оборот_задолженность ON Контрагент.[Контрагент УН] = Оборот_задолженность.[Контрагент УН])
LEFT JOIN Оборот_оплачено ON Контрагент.[Контрагент УН] = Оборот_оплачено.[Контрагент УН] "  & _
             "WHERE (((Контрагент.[Контрагент УН]) Not In (select [Контрагент] from Не_учитывать_контрагент)) AND ((Контрагент.Кредиторка)=Yes)) "  & _
             "ORDER BY Контрагент.[Краткое наименование];" 

rst.Open strSQL, cnn, adOpenKeyset, adLockOptimistic