Не получается подключить БД с расширением *.accdb - VB

Private Sub cmdOpenPath_Click()
    Dim strFileType As String
    strFileType = strFileType & " Access 2000-2003 ( *.mdb )|*.mdb|"
    strFileType = strFileType & " Access 2007-2010 (*.accdb)|*.accdb|"
    'Присваиваем ее свойству Filter
    Me.ComDialog.Filter = strFileType
    Me.ComDialog.ShowOpen
    Me.fldPath = Me.ComDialog.FileName
    
End Sub
 
Private Sub cmdCallection_Click()
    Dim path As String
    Dim myDatabase As Database
    Dim myTable As TableDef 'Здесь будет отбражаться TableDef
    path = Me.fldPath
    'Проверка на пустое поле
    If Me.fldPath.Text = "" Then
    MsgBox "Вы не ввели путь к файлу, дальнейший анализ будет прекращен!!!", vbInformation
    Exit Sub
    End If
    Me.lstTables.Clear
    
    Set myDatabase = OpenDatabase(path)
    
    For Each myTable In myDatabase.TableDefs
        Me.lstTables.AddItem myTable.Name
    Next
    Me.fldCount = Me.lstTables.ListCount & " шт."
End Sub