报表问题，，怎样用vb产生发票的联号？？急！高分！

Question

小弟，做一个发票报表，现在遇到两个问题不知怎么做了，王各位大侠能给与帮助。
1，rptinv as actRptInvoice  'actRptInvoice是报表名
Dim rst As New ADODB.Recordset
Set rptinv = New actRptInvoice2
.....
rptinv.sprcold = rst("prcold")  'prcold的内容为0.5
在报表显示时这个sprcold 为 “ .5 “ ，我用outformat格式化为#，##0.00，prcold在数据库中是以货币格是存储的。
请那位大侠能指点谜经！
2，
怎样产生六位联号，如何产生？用数据库还是有其他的办法？
谢谢！

Answer 1

第一个问题解决了，令rptinv1.spcold = fomat(spcold,"0.00")可以了。
第二个问题，用数据库来记录报表的打印次数，每打印一次num+1，然后更新数据库。
第二个问题我在更新数据库时遇到了一个低级的错误，就是找不到原因！
现象如下：
数据库是只有一个记录的表；rptnum表的num字段
更新数据库的语句：
num = num +1'纪录次数
rs as new adodb.recordset
sql= "select * from rptnum"
If dbADO.State = adStateOpen Then dbADO.Close 'dbado是
     dbADO.Open
     If rs.State = adStateOpen Then rs.Close
     rs.Open sql, dbADO, adOpenDynamic
         rs("num") = num
      rs.Update
      rs.Close
我用with rs
           .fileds("num")= num
           .update
           .close
end with
也不行
如上没法更新？？什么原因呢？？