Dim basa As Database, tabliza As TableDef, s As String, pole As Field

Set basa = CurrentDb

Set tabliza = basa.TableDefs("Товары")

' Список полей, принадлежащих таблице

For Each pole In tabliza.Fields

Debug.Print pole.name

Next

Использование свойства TableDefs объекта Database

Пример

Получить список таблиц в текущей базе данных с указанием в них количества записей.

Dim basa As Database, tabliza As TableDef, tabname As String

Set basa = CurrentDb

Set tabliza = basa.TableDefs("Товары")

' Выведем имена таблиц в текущей базе данных, указав количество записей в них