Sub List_TableProperties()
Dim cat As ADOX.Catalog
Dim myTable As ADOX.Table
Dim pr As ADOX.Property
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = CurrentProject.Connection
Set myTable = cat.Tables("rntsoftTable")
' retrieve table properties
For Each pr In myTable.Properties
Debug.Print myTable.Name & ": " & _
pr.Name & "= "; pr.Value
Next
Set cat = Nothing
End Sub