Create Description for Access database field

[lrfcbabe]

With OutTD
.Fields.Append .CreateField("Line", dbText, 5)
.Fields.Append .CreateField("Designation", dbText, 100)
.Fields.Append .CreateField("GORD", dbDouble)
.Fields.Append .CreateField("ReBegPlus", dbDouble)

These are a few of the fields I create in the table. When I open the table in Access in the design view of course there is no Descriptions for any of the fields. How do add a Description for these fields when I create the table using VB6? Is the Description a property? I assign properties to other fields.

Set prpfield = OutTD.Fields("dblSize")
Set prop = prpfield.CreateProperty("DecimalPlaces", dbByte, 3)
prpfield.Properties.Append prop

Thanks

 

[lrfcbabe]

Heck I just answered my own question. I tried it and it worked. It is a property.

Set OutDB = OutWS.CreateDatabase(strTargetAccessFile, dbLangGeneral, dbVersion40)
Set OutTD = OutDB.CreateTableDef("CompletePipe")
With OutTD
.Fields.Append .CreateField("Line", dbText, 5)
.
.
End With
OutDB.TableDefs.Append OutTD

Set prpfield = OutTD.Fields("Line")
Set prop = prpfield.CreateProperty("Description", dbText, "Application-Pipeline, EED field-line_id")
prpfield.Properties.Append prop

Set OutRS = OutDB.OpenRecordset("CompletePipe", dbOpenTable)