как слить названия полей и таблиц в файл???

подскажите, плз! неохота ручками перебивать 40 таблиц
это вообще возможно??

dim t as dao.tabledef,f as dao.field
for each t in currentdb.tabledefs
... t.name ...
for each f in t.fields
... f.name ...
next
next

ок, спасибо!
точно :)
торможу маленько