Всем доброго дня! Сразу напишу, облазил форум, не нашел нужное.
Есть код для открытия файла Excel:

Option Compare Database
#If VBA7 = 1 Then
    Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
#Else
    Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
#End If

Private Sub Кнопка0_Click()
Dim obj As Object
Dim strFileName As String
strFileName = "C:\Книга1.xlsx"
    If Len(Dir$(strFileName)) = 0 Then MsgBox "Нет Файла!": Exit Sub
Set obj = GetObject(strFileName)
    With obj.Application
        .Visible = True
            If Not .UserControl Then .UserControl = True
        .Windows(1).Activate
        Call SetForegroundWindow(.hWnd)
            'это на случай, если открыто несколько разных книг и надо конкретную
            With .Workbooks.Item(Mid(strFileName, InStrRev(strFileName, "\") + 1))
                .Windows(1).Activate
            End With
   End With
Set obj = Nothing
End Sub

При нажатии на кнопку, открывается книга и делается активной. Нужно тоже самое, только для открытия файла .accdb и для работы с ним. Заранее благодарен!

http://www.sql.ru/forum/1092368/otkryt-accdb-fayl-iz-formy-access-i-sdelat-ego-aktivnym