[试题]

VB 记录数据库的数据入库单号,最后一个记录查不到,但ACCESS数据库中有此记录.
VB 入库时,入库单号是自动导入且累加,(如:RUKU0001....RUKU000N)时,在记录过程中,是自动导入累加,但每次执行1~N次不等,就无法自动导入入库单号.清空数据库重0001开始又可以执行,但执行到自动导编号000N(N代表从1~N)的时候就完了,最后增加那一个查找不到,也加载不了,但在数据库中已有记录.如下简易代码.
Private Sub Cmdcazao_Click()  '入库单号查找
D．im swl As String
D．im rw As New ADODB.Recordset
List1.Clear
swl = "select * from ruku"
rw.Open swl, Conn, adOpenKeyset, adLockPessimistic
While rw.EOF = False
   List1.AddItem rw.Fields("danhao")  '将查找的入库单记录在LIST1控件中
   rw.MoveNext
Wend
rw.close
rw.Close
E．nd Sub
Private Sub Cmdjilu_Click()   '入库记录
D．im SQL2 As String              '以下代码是自动导入入库单号
D．im Rs2 As New ADODB.Recordset
D．im i1 As String
D．im i2 As String
D．im j1As String
D．im j2 As String
i2 = "ruku"
j2 = "0001"
   SQL2 = "select * from ruku"
   Rs2.Open SQL2, Conn, adOpenKeyset, adLockPessimistic
   While (Rs2.EOF = False)
   If Rs2.EOF = False Then
       j2 = Format(j2, "#0000")
       j1 = Trim(i2 & j2)
       If Trim(Rs2.Fields("danhao")) = j1 Then
           List1.AddItem Trim(Rs2.Fields("danhao"))
           j2 = j2 + 1
       Else
           Label3.Caption = j1
           Rs2.MoveNext
       End If
   Else
       j2 = Format(j2, "#0000")
       j1= Trim(i2 & j2)
       Label3.Caption = j1
   End If
   Dim svl As String       经以上入库单号自动导入后,即开始增加入库记录
   Dim rv As New ADODB.Recordset
   List1.Clear
   svl = "select * from caiwupinzhen"
   rv.Open sv, Conn, adOpenKeyset, adLockPessimistic
   if Label3.Caption <> "" then
       rv.addnew
       rv.fields("danhao") = Label3.caption
       rv.update
   end if
   rv.movenext
wend
rv.close
end sub
       以上所出现的问题是:当增加到3~20个不等,自动导入入库单号的时候,最后一个记录查找不到(意思如:记录单号从RUKU0001开始~记录到RUKU0005, 按照程序导入方式下一个应该是RUKU0006,但实际导入的是RUKU0005. 利用查找程序,也查找不到RUKU0005之单号,但进入数据库中,RUKU0005是有记录的.经确认数据库中是存在RUKU0005记录,进入VB继续执行入库操作,不管入库多少次,始终入库单号是RUKU0005,回到数据库,数据库中RUKU0005被入库时不断的累计,入多少次就增加了多少个RUKU0005.)
把数据库数据清空,从RUKU0001开始,执行到RUKU0007或RUKU0025时(不等的情况下)又出现以上问题点了.
出现这种问题是什么原因,如何解决? 调试了半天,头的晕了,我是新手.自学的.很多不懂,还请各位高手指点指点..感激不尽..