Aşağıdaki kodu dener mişiniz?

    Dim adoRecSet As New ADODB.Recordset

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

    

    Do While Not adoRecSet.EOF

       Debug.Print adoRecSet.Fields("TABLE_NAME").Value

        adoRecSet.MoveNext

    Loop

    adoRecSet.Close

       

    Set adoRecSet = Nothing