access数据表中，建议都设置一下主键。既可以保证实体的完整性，也加快数据库的操作速度。

在access中，添加主键可以用点击表格右键，主键，看到的钥匙符号就是主键了。

也可以通过代码动态添加主键

On Error GoTo 出错

    Dim db As DAO.Database

    Dim tb As DAO.TableDef

    Dim ind As DAO.Index

    Set db = CurrentDb

    Set tb = db.TableDefs("员工信息")

    Set ind = tb.CreateIndex("主键")  '创建主键索引

    ind.Fields.Append ind.CreateField(txt1) '为索引添加主键字段

    ind.Primary = True

    tb.Indexes.Append ind  '将新建的索引添加到索引对象集合中去

    MsgBox "恭喜，主键创建成功！" 

    Exit Sub

出错:

    MsgBox Err.Description, , "错误"