Randall R Anthony
RRANTHON at sentara.com
Fri May 27 12:48:01 CDT 2005
Is this what your looking for Barbara?
Dim acapp As Access.Application
Set acapp = New Access.Application
With acapp
'
'the db_paths are set in module mdlmain
.OpenCurrentDatabase DB_PATH1
'import the queries
.DoCmd.TransferDatabase acImport, "Microsoft Access", DB_PATH2,
acModule, "m_module", "m_module"
.DoCmd.TransferDatabase acImport, "Microsoft Access", DB_PATH2,
acQuery, "A_query", "A_query"
End With
'clean up
acapp.Quit
Set acapp = Nothing