将一个表结构复制到另一个表的问题

主键的数据可以复制但主键不能复制，可以用代码设置主键如下例：
'添加主键到[编号]字段
Dim strSQL As String
    strSQL = "ALTER TABLE 表1 ADD CONSTRAINT PRIMARY_KEY  " _
        & "PRIMARY KEY (编号)"
    CurrentProject.Connection.Execute strSQL
  '删除主键
    Dim strSQL As String
    strSQL = "ALTER TABLE 表1 Drop CONSTRAINT PRIMARY_KEY "
    CurrentProject.Connection.Execute strSQL