VB加access如何实现自动生成产品编号？

VB加access如何实现自动生成产品编号？我用的是DATA数据连接，想在TEXT中自动生成累加编号，如“00000”  “00001”。。。。
请问具体代码是什么？说详细点，谢谢！ --------------------编程问答-------------------- 在设计数据库时将字段的数据类型设置成“自动编号” --------------------编程问答-------------------- 该回复被版主删除 --------------------编程问答-------------------- Option Explicit
Dim sum As Integer

Private Sub Command1_Click()
    sum = sum + 1
    Text1 = Format(sum, "00000")
End Sub

Private Sub Form_Load()
    'sum = 0
    Text1 = Format(sum, "00000")
End Sub
--------------------编程问答-------------------- access好象可以设置自动编号的啊 --------------------编程问答-------------------- 自动编号是可以，但不知道为什么在数据库中是按00001，00002显示，但到窗体控件中却显示为
1，2了。请高手指点一下
zdingyun() 你的方法没判断数据库中编号的最大值，每次都是从00001开始。 --------------------编程问答-------------------- 你需在窗体加栽初始化时由数据表中取得编号的最大值.这种查询属简单的SQL语句就能完成.数据表中该字段建议设置为文本.

补充：VB ,  基础类