表sysdatabases：保存DBMS中数据库信息

select[name]from[sysdatabases]orderby[name]

就能得到该DBMS中的数据库信息

表sysobjects：保存数据库中数据表信息

con.ChangeDatabase(DBName)

select[id],[name]from[sysobjects]where[type]='u',con

就能得到该数据库的表信息

表syscolumns：保存数据表的列信息

select[name]from[syscolumns]where[id]="从sysobjects中获取该表的id"

就能得到该表的列信息