'ADOX.Catalog对象
Dim adStru As New ADOX.Catalog
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="......"
mCn.Open strCn
Set adStru.ActiveConnection = mCn
Dim i As Long
For i = 0 To rstHouse.Fields(0).Properties.Count - 1
Debug.Print rstHouse.Fields(0).Properties(i).Name & vbTab & rstHouse.Fields(0).Properties(i).Value
Next
Dim i As Long
For i = 0 To rstHouse.Fields(0).Properties.Count
Debug.Print rstHouse.Fields(0).Properties(i).Name & vbTab & rstHouse.Fields(0).Properties(i).Value
Next
'---------------------------
'KEYCOLUMN False
'ISAUTOINCREMENT False