在数据库表中，我们可以在表设计中添加字段并设置数据类型
也可以通过代码，在程序中添加自动编号字段。
Dim db As DAO.Database
Dim tb As DAO.TableDef
Dim fld As DAO.Field
Set db = CurrentDb
Set tb = db.TableDefs("示例")
Set fld = tb.CreateField("ID", dbLong)' 新增字段
fld.Attributes = dbAutoIncrField '新增字段为自动编号
tb.Fields.Append fld
Set fld = Nothing
Set tb = Nothing
db.Close
Set db = Nothing