Listar tabelas do Access via VBA

Marca a referência:
Microsoft ADO Ext.  2.8 for DDL and Security


Option Compare Database
Option Explicit

Private Sub ListarTabelas()

    Dim cnn As New ADODB.Connection

    Dim catalogo As New ADOX.Catalog
    Dim tabela As New ADOX.Table

    Set cnn = New ADODB.Connection
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\northiwnd.mdb"
 
    Set catalogo.ActiveConnection = cnn
 
    For Each tabela In catalogo.Tables
        Debug.Print tbl.Name
    Next


End Sub