如何用ADOX 得到MDB中的所有表名，表注释，名表中的字段名，注释，类型?

Question

如何用ADOX 得到MDB中的所有表名，表注释，名表中的字段名，注释，类型?我找到了用DAO做的方法，可是我想用ADO来做，这样可以将得到的数据写入数据库中，
如果只能用DAO来做的话，请给给出将DAO得到的表和字段的信息如何转换到ADO中，这样才可以用ADO写入数据库中。

Answer 1

http://blog.csdn.net/online/archive/2004/09/08/98744.aspx

Answer 2

Dim adocon As ADODB.Connection
dim i as integer,j as integer
Set adocon = New ADODB.Connection
adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\newdata.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password="
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = adocon
For i = 0 To cat.Tables.Count
   MsgBox cat.Tables(i).Name   '取出表名
   For j = 0 To cat.Tables(i).Columns.Count
      MsgBox cat.Tables(i).Columns(j).Name   '取出列名
      For Each p In col3.Properties
      MsgBox p.Type & p.Name & p.Attributes   '取出列的属性
      Next
   Next j
Next i
Set cat = Nothing
adocon.Close
Set adocon = Nothing