表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"
就能得到该表的列信息