Dim ap As Access.Application
   'abrimos otra instancia de access
   Set ap = New Access.Application
   'dentro de esa otra instancia del
   'programa Access, abrimos otra base
   ap.OpenCurrentDatabase "OtraBD.mdb"
   'abrimos/imprimimos un informe
   'alojado en esa otra bd
   ap.DoCmd.OpenReport "otroInforme"
   'cerramos la otra bd
   ap.CloseCurrentDatabase
   'cerramos la aplicación
   ap.Quit
   'cerramos el objeto
   Set ap = Nothing

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)