vb程序代码修改mysql表主键_用vb怎么设置数据库的自动编号主键？

下面是我实验的代码，数据库是建成功了，就是往里面写记录的时候，主键不能自动编号，不知道问题出在哪里，往高手指点一下！谢谢！DimctAsADOX.CatalogDimidxAsADOX.IndexDimtbAsTabl...

下面是我实验的代码，数据库是建成功了，就是往里面写记录的时候，主键不能自动编号，不知道问题出在哪里，往高手指点一下！谢谢！

Dim ct As ADOX.Catalog

Dim idx As ADOX.Index

Dim tb As Table

Dim iKey As Key

Dim strDB As String

Dim myDefaultvalue

'创建数据库

strDB = "Access_db" '指定数据库名称

If Dir(App.Path & "\" & strDB & ".mdb") <> "" Then

Kill App.Path & "\" & strDB & ".mdb"

End If

Set cat = New ADOX.Catalog

cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & App.Path & "\" & strDB & ".mdb;" & _

"Jet OL