ник: osmor
Ну в самом простом случае так (для ACCESS 2007)
Dim conRemote As New ADODB.Connection
Dim rstRemote As ADODB.Recordset ' удаленный рекордсет
Dim rstLocal As ADODB.Recordset 'локальный рекордсет
Set rstRemote = New ADODB.Recordset
Set rstLocal = New ADODB.Recordset
conRemote.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=EПутькФайлуСИменемИРасширением;Persist Security Info=False;"
rstLocal.Open "select * from ЛокальнаяТаблица", CurrentProject.Connection
rstRemote.Open "select * from УдаленнаяТаблица", conRemote
|