1、希望这个网址可以帮助到你
http://zhidao.baidu.com/question/1239443077603133139.html?oldq=1
2、Connection.OpenSchema adSchemaTables adSchemaColumns
Private Sub Command1_Click()
Dim cnn As Object
Const adSchemaTables = 20
Const adSchemaColumns = 4
Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\test.mdb';Persist Security Info=False"
Set rds = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
Debug.Print "Table_Name", "Column_Name"
Do Until rds.EOF
Table_name = rds!Table_name
Set temp = cnn.OpenSchema(adSchemaColumns, Array(Empty, Empty, Table_name))
Do Until temp.EOF
Debug.Print Table_name, temp!Column_Name
temp.MoveNext
Loop
rds.MoveNext
Loop
rds.Close
temp.Close
cnn.Close
End Sub