Compactar bases de datos que están en un directorio dieferente

Tengo el programa en una dirección del disco y las bases de datos se encuentran en una dirección diferente en otro directorio.

Como puedo llamar a esas bases para que la comptacion se realice correctamente después de realizar un proceso de limpieza de datos.

Ejecuto esta función dentro de un botón de proceso que al final he realizar la compactación:

           Private Sub Ejecutar_Click()

                  Application.SetOption "Auto Compact", True
                  DoCmd.Quit

          End Sub