EXE для запуска Базы Access

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Dim xlApp As Object = Nothing
        Try
            Dim xlType As Type = Type.GetTypeFromProgID("Access.Application")
            If xlType Is Nothing Then
                Throw New Exception("Microsoft Access не найден в системе!")
                Me.Close()
            End If
 
            Try
                xlApp = xlType.InvokeMember(Nothing, Reflection.BindingFlags.CreateInstance, Nothing, Nothing, Nothing)
            Catch ex As Exception
                Throw New Exception("Ошибка при запуске Microsoft Access!", ex)
                Me.Close()
            End Try
 
            If Not IO.File.Exists(Application.StartupPath & "\bin\iHappy.accdb") Then
                'MsgBox("Файл не найден! Убедитесь, что файл с Базой находится в корне с программой!", MsgBoxStyle.MsgBoxSetForeground, "Ошибка")
                MsgBox("Файл не найден! Убедитесь, что файл с программой находится в корне с программой!", MsgBoxStyle.Information + MsgBoxStyle.SystemModal, "Ошибка")
                'Throw New Exception("Файл не найден! Убедитесь, что файл с Базой находится в корне с программой!")
                Me.Close()
            End If
 
            Try
                xlApp.AutomationSecurity = 1 'Строка которая запускает с вклеченными макросами
                xlApp.WorkBooks.Open(Application.StartupPath & "\bin\iHappy.accdb")
                xlApp.Visible = True
 
 
            Catch ex As Exception
 
                xlApp.Quit()
 
MsgBoxStyle.MsgBoxSetForeground, "Ошибка")
             MsgBoxStyle.SystemModal, "Ошибка")
            End Try
 
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
            If Not xlApp Is Nothing Then
                Try
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
                    xlApp = Nothing
                    GC.Collect()
                Catch
                End Try
            End If
        End Try
            Me.Close()
 
    End Sub
End Class

Imports acc = Microsoft.Office.Interop.Access
'…
Private acs As acc.Application
Private acsTabs As acc.AllTables
Private acsMac As acc.AllMacros
'и т.д.
'…
acs.OpenAccessProject("путь", True)
Dim tb As acc.AccessObject = acsTabs.Item(0)
'и т.д.