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