求助：生成自增编号，却不更新？
'---------生成编号
Private Sub KDidCreate()
vRs.Open ("select max(kdd_lid) as vKD from KDD"), sqlstr, adOpenStatic, adLockReadOnly
With vRs
If IsNull(!vkd) = True Then
KDid = "KD" & Format(Date, "yyyy") & String(4 - Len("1"), "0") & "1"
Else
KDi = CLng(Right(!vkd, 4)) + 1
KDid = "KD" & Format(Date, "yyyy") & String(4 - Len(CStr(KDi)), "0") & KDi
End If
End With
vRs.Close
lbl.Caption = KDid
lbl.Refresh
End Sub
此段是生成编号的代码，我在Form_Load事件中调用是能正常生成并赋值给标签lbl（如KD20090001）。现如果我放在其他过程（如我增加一条记录到表KDD，kdd_lid也更新过的KD20090002），再次调用此KDidCreate过程却得不到KD20090003，lbl仍然是KD20090002.
[解决办法]
整个处理过程是不是在同一个事物中进行!就是更新处理的链接和生成编号处理的链接是不是同一个？
[解决办法]
