Dim connX As New ADODB.Connection
Dim connX2 As New ADODB.Connection

Dim r as recordset
Dim r2 as recordset

connX.Provider = "Microsoft.Jet.OLEDB.4.0"
connX.Open MyDbPath
connX2.Provider = "VFPOLEDB.1"
connX2.Open MyDbPath
pppoe = "Select * From files where id=" & per
Set r = connX.Execute(pppoe)

pppoe = "Select * From org where id=" & per2
Set r2 = connX2.Execute(pppoe)

те нужно выполнять запросы междвумя базами данных
если бы они были в одной базе
в одном рекордсете у меня файлы в другом организации , если бы они были в одно базе, я бы написал так
pppoe = "Select * From org left join files on org.mid=files.mid"
Set r2 = connX2.Execute(pppoe)
а как тут такое сделать, чтобы еще и быстро работало?