vb+Access设置id为主键后如何自动编号？

Question

Set dbNew = CreateDatabase("chess.mdb", dbLangGeneral)
With dbNew
Set tdfNew = .CreateTableDef("member")
With tdfNew
.Fields.Append .CreateField("ID", dbInteger, 10)
.Fields.Append .CreateField("姓名", dbText, 16)
.Fields.Append .CreateField("学号", dbText, 16)
.Fields.Append .CreateField("棋种", dbText, 16)
.Fields.Append .CreateField("入会日期", dbDate, 16)
.Fields.Append .CreateField("会龄", dbInteger, 16)
Set idxNew = .CreateIndex("Primary_key")
With idxNew
.Fields.Append .CreateField("ID")
.Primary = True
End With
.Indexes.Append idxNew
End With
.TableDefs.Append tdfNew
.Close
End With
如上代码创建了数据库，然后插入数据时必须指定ID的值，因为ID不能为NULL，我问如何让id自动编号？
多谢多谢

Answer 1

1、在Access 数据设计中将字段"ID" 的数据类型设置为：自动增加
2、在编写程序中不用给 ID 赋值，当你用程序增加数据记录时，Access数据库会自动给出ID 值。追问

对对，我想问的就是这个，那个请问这代码怎么写呢？

追答

设置Access 数据库中字段属性，不需要写程序。

用Access 打开数据库，找到需要修改的表，在"设计状态”，找到需要修改的字段，然后修改字段属性。