用vb向数据库添加数据的问题，高手请指导！
用vb向数据库添加数据，编码是自动编码，添加后在数据库把数据删除了，可是再继续添加数据，编码是按删除前的编码往后计数的，请问怎样解决这个问题？

部分代码：
Private Sub Command1_Click()

'On Error Resume Next
'MsgBox Form1.Data1.Recordset.RecordCount
Form1.Data1.Recordset.AddNew

Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text
Form1.Data1.Recordset.Fields(2) = Form2.Text2.Text
Form1.Data1.Recordset.Fields(3) = Form2.Text3.Text
Form1.Data1.Recordset.Fields(4) = Form2.Text4.Text

Form1.Data1.Recordset.Update

If Err.Number <> 0 Then
Beep
MsgBox "输入数据错误，请重新输入", vbCritical + vbOKOnly, "错误信息"

Exit Sub
Else
Form1.Data1.Recordset.Bookmark = Form1.Data1.Recordset.LastModified
End If

Form1.Enabled = True
Unload Form2
End Sub


[解决办法]
Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text 是不是自动编号的字段，如果是，就不用写这个了。
[解决办法]
如果字段是自动递增的标识列，则确实是这样的，即使在数据库中删除记录再增行也是不连续的
[解决办法]
删除当前记录时将后面记录的自动编号用代码修改。
[解决办法]
是不是可以再数据增加之前先刷新一下数据库？

Form1.Data1.Recordset.Update

Form1.Data1.Recordset.AddNew
。。。。。。
[解决办法]
就是这样的,无法改,但是这个没什么关系吧,这样的字段一般是用作记录的唯一标识.不影响读取内容