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