主题：获取表名和列名

For Each tb As Table In Tables
    For Each cl As Col In tb.Cols
        Output.Show(" 表名 " & tb.Name & "     列名 " & cl.name)   '标题名用Caption。
    Next
Next

要生成目录树，先将上面的表名和列名存放在一个表中，再从这个表中生成目录树更方便。