Как с использованием ADO во время исполнения я могу получить структуру базы? - VB

Формулировка задачи:

Вопрос: как с использованием ADO во время исполнения я могу получить структуру базы, т.е. список таблиц и полей в них. В DAO я это делал через TableDef, но двухтысячный Access с ним не очень дружен.

Решение задачи: «Как с использованием ADO во время исполнения я могу получить структуру базы?»

textual
                            Листинг программы 
                        

                            Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Set cat = New ADOX.Catalog
cat.ActiveConnection = 'Provider=Microsoft.Jet.OLEDB.4.0;Data _ Source=D:db1.mdb;Persist Security Info=False'
Set tbl = cat.Tables('tbl')
MsgBox tbl.Columns('aa').Type
Set tbl = Nothing
Set cat = Nothing
                        