Исследование MS Access

Решил сегодня покопаться в мастерах Access и обратил внимание на так называемый Архивариус - вот часть отчета который он выдал:
D:\My Documents\db1.mdb 26 мая 2004 г.
Таблица: child1 Страница: 1

Свойства
	GUID: 	Двоичные данные	NameMap: 	Двоичные данные
	OrderByOn: 	False	Orientation: 	0
	RecordCount: 	1	Updatable: 	True
	Дата изменения: 	24.05.2004 20:58:49	Дата создания: 	24.05.2004 20:57:09
	
Столбцы
	Имя	Тип	Размер
	Data	Текстовый	50
	AllowZeroLength: 	False
	ColumnHidden: 	False
	ColumnOrder: 	По умолчанию
	ColumnWidth: 	По умолчанию
	DisplayControl: 	Поле
	GUID: 	Двоичные данные
	Required: 	False
	UnicodeCompression: 	True
	Атрибуты: 	переменной длины
	Исходная таблица: 	child1
	Исходное поле: 	Data
	Обновляемые данные: 	False
	Порядковый номер: 	1
	Порядок сортировки: 	Общий
	fkt1	Длинное целое	4
	AllowZeroLength: 	False
	ColumnHidden: 	False
	ColumnOrder: 	По умолчанию
	ColumnWidth: 	По умолчанию
	DecimalPlaces: 	Авто
	DisplayControl: 	Поле
	GUID: 	Двоичные данные
	Required: 	False
	Атрибуты: 	фиксированной ширины
	Исходная таблица: 	child1
	Исходное поле: 	fkt1
	Обновляемые данные: 	False
	Порядковый номер: 	2
	Порядок сортировки: 	Общий
	Схема данных
	Parentchild1
	Parent	child1
	t1	1	1	fkt1
	RelationshipType: 	один-к-одному
	Атрибуты: 	Уникальность; Обязательность; Каскадные обновления; 
	Каскадные удаления

И вот какой вопрос меня заинтересовал: есть ли способ программного доступа ко всей этой информации?
Все эти данные могут быть очень полезны во многих случаях, например при динамической генерации форм или отчетов(что первое пришло в голову)

dim t as dao.tabledef,x as dao.index,f as dao.field,p as dao.property

for each t in currentdb.tabledefs
... t.name ...

for each p in t.properties
... p.name ...
... p.value ...
next

for each f in t.fields
... f.name ...
for each p in f.properties
... p.name ...
... p.value ...
next
next

for each x in t.indexes
... f.name ...
for each p in x.properties
... p.name ...
... p.value ...
next
for each f in x.fields
... f.name ...
for each p in f.properties
... p.name ...
... p.value ...
next
next
next

next

хм...А бех DAO никак нельзя?
Неужели аккцессовский архивариус специально для этого DAO подключает?

for each p in t.properties ... p.name ... ... p.value ... next

Маленькое уточнение к этому коду: property не всегда возвращает значение - может упасть, так что надо будет поставить обработчик ошибок

		автор
		Неужели аккцессовский архивариус специально для этого DAO подключает?

а что ему сделается? он же надстройка :0)