VBS操作informix数据库的问题

早晨很舒服

用VBS操作informix数据库，
用Recordset读取的表的一个字段的数据末尾的0直接被去掉了
（本来是11750读取出来成了1175，直接把末尾的0忽略了！
从5位直接成了4位数了！），
其他的数据都是好好的，都是5位，唯独这个末尾是0的，
是怎么回事呢？

请高手指点下！
急啊！

-------------
针对informix做过脚本开发的高手们，指点一下，
或者其实vbs操作informix没问题，而是我脚本写的有问题（比如：recordset需要进行特殊的属性设置等等）。


'定义变量：
'con：连接对象；
'rs：结果集对象；
'str：字符串对象，用来保存执行存储过程的语句（此存储过程并未返回结果集）
'sqlstr：字符串对象，用来保存查询语句（根据订单号查询offer_id）

Dim con,rs,str,sqlstr,OrderNumber,dataCount,Arry(),re_splitable


'初始化连接对象
Set con = createobject("adodb.connection")

'初始化结果集对象
Set rs = createobject("adodb.recordset")


'为连接字符串赋值（常量onnectionString在数据库配置文件中被声明）
con.connectionstring="DRIVER={INTERSOLV 3.11 32 BIT INFORMIX 9};UID=test; PRO=olsoctcp;SRVR=ol_test_rec;SERV=2323;HOST=192.168.1.68;DB=testdb; PWD=2009"

'为查询语句的字符串赋值
sqlstr="select offer_id from proddb:product_offer where offer_code='425' and offer_kind='1'"
'打开数据库连接
con.open
rs.open sqlstr,con

msgbox rs("offer_id")\\难道是这步取值转换有问题？
rs.close
Set rs=nothing
con.close
Set con=nothing   
------------------
使用数据库检查点，检查是pass的。如附件图1（1.jpg）：
结果：3540

而使用msgbox，返回如附件图2（2.jpg）：
结果：354
为何啊？？

[ 本帖最后由 早晨很舒服 于 2009-12-22 09:34 编辑 ]