access scripts

I have to migrate an Access database to a PostgreSQL. I want to know the properties of the fields to check the migration process. I used ADOX library :

Function list_fields_properties()

   Dim Catalog As ADOX.Catalog
   Dim Table As ADOX.Table
   Dim Column As ADOX.Column
   Dim Property As ADOX.Property

   Set Catalog = New ADOX.Catalog
   Set Catalog.ActiveConnection = CurrentProject.Connection

   Dim fso As Object
   Set fso = CreateObject("Scripting.FileSystemObject")
   Dim oFile As Object
   Set oFile = fso.CreateTextFile("E:\Users\MichelD\stock_field_properties.txt")

   For Each Table In Catalog.Tables
     oFile.WriteLine "======================================"
     For Each Column In Table.Columns
        oFile.WriteLine "--------------------------------------"
        oFile.WriteLine Table.Name & ", " & Column.Name
        For Each Property In Column.Properties
             oFile.WriteLine Property.Name & "=" & Property.Value

   Set Catalog = Nothing

   Set fso = Nothing
   Set oFile = Nothing
End Function