setting standard property on a field per code

[kingz2000]

Hi guys,
with the code below, I am trying to set the property of a field 'Shares' as standard. For some rerason it gives me the error message: Error 3219 - Operation is not allowed in this context...as I append the property pstdProp.

can somebody help me out??

Dim td As TableDef
Dim aField As Field
Dim pStdProp As Property



Set aField = td.CreateField("shares", dbDouble)
td.Fields.Append aField
Set pStdProp = aField.CreateProperty("Format", dbText)
pStdProp.Value = "Fixed"
aField.Properties.Append pStdProp
aField.Properties("Format") = "Standard"

Thanks in advance,
~k~