1、希望这个网址可以帮助到你http://zhidao.baidu.com/question/1239443077603133139.html?oldq=1
2、Connection.OpenSchemaadSchemaTablesadSchemaColumns霸烹钟爷PrivateSubCommand1_Click()DimcnnAsObjectConstadSchemaTables=20ConstadSchemaColumns=4Setcnn=CreateObject("adodb.connection")cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource='c:\test.mdb';PersistSecurityInfo=False"Setrds=cnn.OpenSchema(adSchemaTables,Array(Empty,Empty,Empty,"Table"))Debug.Print"Table_Name","Column_Name"DoUntilrds.EOFTable_name=rds!Table_nameSettemp=cnn.OpenSchema(adSchemaColumns,Array(Empty,Empty,Table_name))DoUntiltemp.EOFDebug.PrintTable_name,temp!Column_Nametemp.MoveNextLooprds.MoveNextLooprds.Closetemp.Closecnn.CloseEndSub