MS Access | DAO | Вывести имена таблиц текущей БД

'вывести имена таблиц текущей базы через DAO

Sub PrintTables_DAO()

Dim db As Database, tbl As TableDef

Set db = CurrentDb

For Each tbl In db.TableDefs

   Debug.Print tbl.Name

Next

End Sub