>The MSDN help for the ADOX Column's Append method shows:
>
>Columns.Append Column [, Type] [, DefinedSize]
>
>
>How do I specified decimal positions?

Have you tried creating a column object ?

Something like:
Dim col As ADOX.Column

Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
Set col = cat.Tables("Table1").Columns("fldDecimal")
col.NumericScale = 8
col.Precision = 4
cat.Tables("Table1").Columns.Append col