>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
Éric Moreau, MCPD, Visual Developer - Visual Basic MVP
Conseiller Principal / Senior Consultant
Moer inc.
http://www.emoreau.com