用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 是不是自动编号的字段，如果是，就不用写这个了。
不是，编码是第0个数据
如果字段是自动递增的标识列，则确实是这样的，即使在数据库中删除记录再增行也是不连续的
那怎样才能改善这�
相关问答：
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
怎么优化查询的效率，比如我想从100万条记录中每次只查询100条记录的话，那么这条sql语句该怎么实现，注意：语言是VBScript的，
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
涉及到算法，goog ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
vb是不是很牛啊 怎么那么多的病毒都是vb做的啊 c#行不行？
c#在XP运行不了，除非让别人先装上.net.
VB相对于C,C++,ASM等等，局限性大多了。
别再说什么语言不如什么语言的话了，只有你不会用或用着不顺手的� ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
