Dear VB users

Please look at the next source:

Private Sub Form_Load()
Dim DB As Database
Dim TD As TableDef
Dim FD As Field

Set DB = CreateDatabase(“c:\q.mdb”, dbLangGeneral)
Set TD = DB.CreateTableDef("NewTable")

With TD
.Fields.Append .CreateField("NewField", dbLong)
'.Fields("NewField").........
'HOW DO i GIVE FIELD "NewField" DECIMAL PLACES???????????????
End With

End Sub

HELP!!!!!!!!!!!!!!!!!!!!

Can someone tell me how to give field "NewField" decimal places!


Nice regards,

Michelle.