如何得到ACCESS中的所有表的表名

[sor]

一个未知ACCESS数据库，怎么得到该ACCESS的所有表的表名和字段名、字段属性等

[no_com]

Set dbs = OpenDatabase(zhuan_1)
For j = 0 To dbs.TableDefs.Count - 1
If Left$(dbs.TableDefs(j).Name, 4) <> "MSys" Then
i = i + 1
'Grid1.AddItem Grid1.Rows + 1
'Grid1.Rows = i + 1
Grid1.TextMatrix(i, 0) = i
Grid1.TextMatrix(i, 1) = dbs.TableDefs(j).Name
Grid1.TextMatrix(i, 2) = dbs.TableDefs(j).Fields.Count
Grid1.TextMatrix(i, 3) = dbs.TableDefs(j).RecordCount

'dbs.TableDefs(i).Fields.Count
'MsgBox dbs.TableDefs(i).RecordCount & "|" & dbs.TableDefs(i).Fields.Count
End If
+++++++++=
得到所有表

[no_com]

得到表中所有字段名
dim a()
for i=0 to rs.fields.count-1
a(i)=rs.Fields(i).Name
next