奇怪的问题？

各位大虾，请帮帮忙，看看这个东西，非常奇怪哦
我想将数字直接写入该怎么做呢？
dim shuzi,djrq,djry
shuzi=session("logonumber")+1‘数字
djrq=date()
djry=session("UserName")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL="insert into djzxnumber(number,djrq,djry)values('"+shuzi+"',#"&djrq&"#,'"+djry+"')"
conn.execute SQL
conn.close
然而执行后告诉如下内容：
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: '[string: "insert into djzxnumb"]经检查发现，问题出在number上，我想插入数字1，或通过session（“logonumber”）+1 的方式，插入变化的数字。我该怎么做呢？
请各位大虾急于解决为盼！谢谢！