Можно еще воспользоватся гетерогенными Jet запросами

вот например как я заливаю данные из MSSQL в локальный MDB-к
Dim dbe As DAO.DBEngine
Dim db As DAO.Database
Dim q As DAO.QueryDef

Set dbe = New DAO.DBEngine
If Dir(CurrentProject.Path + "\" + GetUserName() + "__tmpDSA_MJ.mdb", vbNormal) <> "" Then _
Kill CurrentProject.Path + "\" + GetUserName() + "__tmpDSA_MJ.mdb"
Set db = dbe.Workspaces(0).CreateDatabase(CurrentProject.Path + "\" + GetUserName() + "__tmpDSA_MJ.mdb", dbLangGeneral)
Set q = db.CreateQueryDef("spq")
q.Connect = "ODBC;DRIVER={SQL Server};SERVER=" + GetServerName() + ";DATABASE=" + GetDBName() + ";Trusted_Connection=yes;dsn=;"
q.SQL = "exec dbo.DSA_MJ_p '" + SQLDate(dtDateBeg()) + "','" + SQLDate(dtDateEnd()) + "'"
q.Close
db.Execute "select * INTO TmpWr1 from spq"

Очевидно что для Oracle поменяется только строка q.Connect
запрос к серверу можно использовать для обратной перекачки mdb->сервер
но гетерогенные запросы сравнительно медленны т.к.
выполняются клиентом мощность которого может быть ограничена
поэтому я предпочитаю в этом случае получать доступ к MDB
со стороны сервера используя вьюхи типа
SELECT *
FROM OPENDATASOURCE ('Microsoft.Jet.OLEDB.4.0',
'Password="";User ID=Admin;Data Source=\\СетевойПуть\МойФайл.mdb;Mode=Share Deny Write;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
)...[МояТаблица] Rowset_1
или линкованный сервер
Есть ли такая возможность в Oracle я не знаю.

Например вот так
Dim rsa As ADODB.Recordset
Dim rsd As DAO.Recordset

cnn.Execute "CREATE TABLE #DSA_TmpRep (MeetingID int NOT NULL ,MeetAdrDate smalldatetime NOT NULL,Sort_ID [int] IDENTITY (1, 1) NOT NULL)"

Set rsd = Me.Recordset.Clone
rsd.Filter = Me.Filter
rsd.Sort = Me.OrderBy

Set rsa = New ADODB.Recordset
rsa.Open "#DSA_TmpRep", cnn, adOpenForwardOnly, adLockBatchOptimistic, adCmdTable

Do While Not rsd.EOF
rsa.AddNew Array("MeetingID", "MeetAdrDate"), _
Array(rsd!MeetingID, rsd!MeetAdrDate)
rsd.MoveNext
Loop
rsa.UpdateBatch
rsa.Close
Set rsa = Nothing
rsd.Close
Set rsd = Nothing


DoCmd.OpenReport "DSA_MJ_rep", acViewPreview
cnn.Execute "drop table #DSA_TmpRep"