Alttaki kodAdo schmea ile Tablo adlarını muazzam buluyor .Bazende hata veriyor CurrentProject.FullName bundan dolayı.Yani kendi kendini açamıyor.

Artık Schemea yöntminede razı oldum başka yöntem yoksa.

Sub TableAdlar()



    Dim adoRecSet As New ADODB.Recordset

    Dim connDB As New ADODB.Connection

    

    connDB.Open ConnectionString:="Provider = Microsoft.ACE.OLEDB.12.0; data source= " & CurrentProject.FullName

    Set adoRecSet = connDB.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

    

    Do While Not adoRecSet.EOF

        MsgBox adoRecSet.Fields("TABLE_NAME").Value

        adoRecSet.MoveNext

    Loop

    adoRecSet.Close

    

    connDB.Close

    

    Set adoRecSet = Nothing

    Set connDB = Nothing

    

End Sub