问题：

　　如何用sql语句添加删除主键

　　回答：

　　Function AddPrimaryKey()

　　'添加主键到[编号]字段

　　Dim strSQL As String

　　strSQL = "ALTER TABLE 表1 ADD CONSTRAINT PRIMARY_KEY " _

　　& "PRIMARY KEY (编号)"

　　CurrentProject.Connection.Execute strSQL

　　End Function

　　Function DropPrimaryKey()

　　'删除主键

　　Dim strSQL As String

　　strSQL = "ALTER TABLE 表1 Drop CONSTRAINT PRIMARY_KEY "

　　CurrentProject.Connection.Execute strSQL

　　End Function

　　获取键名请用 "如何得到一个表的所有键？以及键的类型？" 为关键字搜索access911文章

　　或直接查看以下链接http://access911.net/index.asp?board=4&mode=3&recordid=72FAB21E11DC