Hello dear VB users,

Can somebody tell me how set to the field "NewField" to a primairy key:


Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.CreateDatabase(DbSettings, dbLangGeneral)
Dim tdfNew As TableDef

Set tdfNew = Db.CreateTableDef("newTable")
tdfNew.Fields.Append tdfNew.CreateField("NewField", dbText)

tdfNew.Fields("newfield").DefaultValue = "new"

Db.TableDefs.Append tdfNew
Db.Close

Nice greetings,

Michelle.