ลองอ่านดูที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_2000&Number=273950 ครับ

Function ODBCOracle(strSrcTbl As String, strDestTbl As String, strODBC As String)
Dim dbs As Database
Dim tdf As TableDef

Set dbs = CurrentDb
Set tdf = dbs.CreateTableDef(strDestTbl)

tdf.Connect = "ODBC;DSN=" & strODBC & ";UID=ro;PWD=ro;"

tdf.SourceTableName = strSrcTbl
dbs.TableDefs.Append tdf

End Function

เวลาใช้
ODBCOracle("emp","emp","OracleDSN")