Option Explicit
Private Sub cmdCallection_Click()
    Dim path As String
    Dim myDatabase As Database
    Dim myTable As TableDef 
    path = Me.fldPath
    
    If IsNull(Me.fldPath) Then
    MsgBox "Вы не ввели путь к файлу!!!", vbCritical
    Exit Sub
    
    End If
    Set myDatabase = OpenDatabase(path)
    
    For Each myTable In myDatabase.TableDefs
        Me.lstTables.AddItem myTable.Name
    Next
    Me.fldCount = Me.lstTables.ListCount

End Sub

Private Sub cmdOpenPath_Click()
    Dim strFileType As String
    strFileType = strFileType & " Access 2000-2003 ( *.mdb )|*.mdb|"
    strFileType = strFileType & " Access 2007-2010 (*.accdb)|*.accdb|"
    
    Me.ComDialog.Filter = strFileType
    Me.ComDialog.ShowOpen
    Me.fldPath = Me.ComDialog.fileName
    
End Sub

Set myDatabase = OpenDatabase("C:\Program Files\Base")