这个是自动编号
todayDateStr = Year(date()) & Right("00"& Month(date()),2)
sql="select top 1 Serial_number from KJXMGL where Serial_number like '%"&todayDateStr&"%' Order by Serial_number Desc"

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
If Not Rs.Eof Then
NewId = "xmsb"&FormatNumber(Rs("Serial_number"),0) + 1
else
NewId = "xmsb"&todayDateStr &"001"
end if
如果下面红色的地方去掉是可以实现的 数据库对应的字段是INT 是没问题的
NewId = "xmsb"&FormatNumber(Rs("Serial_number"),0) + 1
NewId = "xmsb"&todayDateStr &"001"
现在对了红色部分所以得把数据库改成VARCHER 就出错了

错误 Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'FormatNumber'


我如何处理谢谢指教