Sub List_FieldProperties()
Dim cat As ADOX.Catalog
Dim col As ADOX.Column
Dim pr As ADOX.Property
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = CurrentProject.Connection
Set col = New ADOX.Column
Set col = cat.Tables("rntsoftTable").Columns("Id")
MsgBox col.Properties.Count
For Each pr In col.Properties
Debug.Print pr.Name & "="; pr.Value
Next
Set cat = Nothing
End Sub