用VB程序设置ACCESS主键的问题

Question

我将Sql中的数据导到ACCESS中，结果ACCESS中所有的ID都没有设置主键，我现在想给每个表的ID字段设置为主键，但由于表太多，不想手工去设置，现在想用VB程序来给ACCESS的所有表设置主键，这程序怎么写，
我用了ADOX，
mykey.name="id"
myTable.keys.append mykey
结果好像不行，请大家帮帮忙给我想想办法，很急啊

Answer 1

这样就行了
Private Sub Command1_Click()
    CreateKey
End Sub
Sub CreateKey()
   Dim cnn As New ADODB.Connection
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=d:\db1.mdb;"
      
    cnn.Execute "ALTER TABLE NewTable " _
        & "ADD Primary KEY (ID) "
End Sub

Answer 2

不行啊， 因为是从SQL导过来的，里面都有数据的，这些数据我都还想要，所以ID值 不能改变

Answer 3

你试过了么这样操作只是增加主键，没有改变任何数据啊对Access表来讲，唯一的变化就是那一列多了一个钥而已