VB6+ACCESS 怎么实现自动编号

VB6+ACCESS 如何实现自动编号？
VB6+ACCESS 如何实现自动编号？（举例如下：）
ID 数据1 编号
1 25451 0906-1
2 25331 0906-2
3 23551 0906-3
4 21351 0907-1
5 28451 0907-2
6 20011 0907-3
7 27771 0907-4
8 26727 0908-1
9 28771 0908-2
. . .
. . .
. . .
1.编号在Text1中按数据增加的次数自动编号。（编号要求如下2.）
2.数据库每增加1条数据，则编号按当前日期顺序编号，过了0:00又重新从1开始编号，一直到24H后又重新从1开始编号。
（1年内保证编号始终唯一）

[解决办法]

当然，一定要这样做的话，也没有问题：

Dim strItem() As String, strTmp As String

Set rs = cn.Execute("Select Max(编号) As last_no From yourtable")

strItem = Split(rs!last_no, "-")

strTmp = Format(Now, "HHnn")

If strTmp > strItem(0) Then
strTmp = strTmp & "-1"
Else
strTmp = strItem(0) & "-" & (Val(strItem(1)) + 1)
End If

strTmp 就是新的编号。