作一个发票打印出现的奇怪问题，请大家帮我看看！！！！

Question

我在做一个发票打印程序，先录入发票信息，保存数据库后打印数据库中最后一条数据。（VB＋Access2003）
打印是用DataEnvironment＋DataReport,调用时datareport.printReport,可是在打印时有时候会打印出倒数第二条记录，大部分时候还是会打印最后一条数据的，这个问题困扰我很久了，各位大侠帮帮我出出主意啊！！
我的QQ是8763665

Answer 1

可是为什么大部分时候打印的是最后一条，有时候打印出来就是倒数第二条     Set db1 = Workspaces(0).OpenDatabase(App.Path & "\dbtemp.mdb", False, False, ";pwd=xxxx")
     strsql1 = "insert into billtemp(na,cn,cp,pcode,pname,pno,pc,pdate,pb,ps) values " & "('正常','" & Label11.Caption & "','" & Label3.Caption & "','" & Txtcode.Text & "','" & Txtname.Text & "','" & Txtmoney.Text & "','" & Txtcn.Text & "',#" & DTPicker1.Value & "#, '" & Txtbn.Text & "','0')"
     db1.Execute strsql1
     db1.Recordsets.Refresh这不是已经刷新过了吗？

Answer 2

有建主键啊，就是ID号，自动在Access中生成的

Answer 3

那就是你读取资料的时候有问题了
添加一个排序Order by ID

Answer 4

DE1.rsCommand1.Source = "select top 1 * from billtemp  order by id desc"
Set datareport.DataSource = DE1
datareport.PrintReport
DE1.rsCommand1.Close
我是这样的,还是不行啊，有时候打印出来的就是倒数第二条记录