Получить рабочий код, чтобы увидеть, если база данных открыта

Question

Я открываю базу данных Access из Excel с помощью щелчка и VBA. Я хочу проверить, открыт ли Access при следующем щелчке в файле Excel, чтобы не открывать другой файл доступа.

Мой код:

Dim oApp As Object
    ' Path to Access database
    Dim LPath As String
    LPath = "C:\Users\kyle.overton1\Desktop\Access Database for Punch List.accdb"

    ' Exit if selection is more than one cell
    If Target.Cells.Count > 1 Then
        Exit Sub
    End If

    ' Validate if selected cell is in range
    If Not Application.Intersect(Range("A23:A2000"), Range(Target.Address)) Is Nothing Then
        ' Assign studentid value from current cell
        Init = Target.Value

        ' Call the open procedure with current cell value
        Call OpenAccess(Init)
    End If
End Sub

Sub OpenAccess(Init)
    Dim oApp As Object

    'Path to Access database
    Dim LPath As String
    LPath = "C:\Users\kyle.overton1\Desktop\Access Database for Punch List.accdb"

    'Open Access and make visible
    Set oApp = CreateObject("Access.Application")
    oApp.Visible = True

    'Open Access database as defined by LPath variable
    oApp.OpenCurrentDatabase LPath
    oApp.DoCmd.OpenForm "frm_AllRecords"
    oApp.DoCmd.ApplyFilter , "Initiative_Nbr=" & Init
End Sub

Этот код работает для открытия и фильтрации в правильный файл

Мой ожидаемый результат - проверить, открыта ли база данных, если она закрыта, иначе продолжить