keiko,

here is a short example, that reads all field-names,
data-types+sizes and default values from all tables
of an Access-database:

good luck

sascha

'****************************************************

Dim x As New ADOX.Catalog
Dim t As New ADOX.Table
Dim c As New ADOX.Column

' Be sure to create your own Connection-object
Set x.ActiveConnection = GetConnection()

For Each t in x.Tables
Debug.Print t.Name
For Each c In t.Columns
Debug.Print c.Name & ", " & _
c.Type & ", " & _
c.DefinedSize & ", " & _
c.Properties("Default")
Next
Next