Dim Acc As New Access.Application
Acc.SysCmd( 603 , [ADP/MDB FileFullPath], [ADE/MDE FileFullPath])
Acc.Quit(Access.AcQuitOption.acQuitSaveNone)
set Acc = Nothing

Me.TopMost = True
            ' компилируем проект
            acc.VBE.MainWindow.Visible = True
            acc.VBE.ActiveCodePane.Show()
            vbWind_H = acc.VBE.MainWindow.Height
            vbWind_W = acc.VBE.MainWindow.Width
            acc.VBE.MainWindow.Height = 0
            acc.VBE.MainWindow.Left = 0
            acc.VBE.MainWindow.Width = 0
            ctl = acc.VBE.CommandBars("Menu Bar").Controls("Debug").Controls(1)
            If ctl.Enabled Then ctl.Execute()

            ' смотрим, если есть ошибки компиляции, то выдаём сообщение
            If ctl.Enabled Then
                Me.TopMost = False
                MsgBox("В проекте '" & filePRJ & "' найдены ошибки при компиляции! " & vbCrLf & "Перейдите в окно VBA для просмотра ошибки.", MsgBoxStyle.Critical + MsgBoxStyle.OKOnly, "Ошибка")
                acc.Visible = True
                acc.VBE.MainWindow.Height = vbWind_H
                acc.VBE.MainWindow.Width = vbWind_W
                acc.VBE.MainWindow.WindowState = VBIDE.vbext_WindowState.vbext_ws_Maximize 
                Exit Sub
            End If
            Me.TopMost = False
            acc.CloseCurrentDatabase()
            acc.Quit(Access.AcQuitOption.acQuitSaveAll)
            acc = Nothing

            MsgBox("Компиляция проекта '" & filePRJ & "' успешно завершена!", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Информация")