用AddNew出现错误，好像是说我我的SQL语句有问题。错误是：Microsoft VBScript 编译器错误 '800a0401'

语句未结束

\xiaofei.asp, line 39
以下是代码，很简单一段，大家帮忙看看那
dim sql2,sql3,rs2,rs3
         '以下获取rs2
         sql2="select * from xiaofei"
         set rs2=Server.CreateObject("ADODB.Recordset")
         rs2.open sql2,conn,1,2
         '以下获取rs3
         sql3="select * from infor"
         set rs3=Server.CreateObject("ADODB.Recordset")
         rs3.open sql3,conn,1,2
         '以下添加消费记录
         rs2.AddNew
         rs2("kh_num")="<%=rs3("kh_num")%>"
         'response.Write"&<%=rs3("kh_num")%>&"
         rs2("kh_name")="<%=rs3("kh_name")%>"
         rs2("kh_sex")="<%=rs3("kh_sex")%>"
         rs2("kh_remain")="<%=rs3("kh_remain")%>"
         rs2("kh_shijian")=now()
         rs2.update
         '添加记录以后返回首页
         response.redirect "index.asp"

dim sql2,sql3,rs2,rs3
         '以下获取rs2
         sql2="select * from xiaofei"
         set rs2=Server.CreateObject("ADODB.Recordset")
         rs2.open sql2,conn,1,2
         '以下获取rs3
         sql3="select * from infor"
         set rs3=Server.CreateObject("ADODB.Recordset")
         rs3.open sql3,conn,1,2
         '以下添加消费记录
         rs2.AddNew
         rs2("kh_num")=rs3("kh_num")
         rs2("kh_name")=rs3("kh_name")
         rs2("kh_sex")=rs3("kh_sex")
         rs2("kh_remain")=rs3("kh_remain")
         rs2("kh_shijian")=now()
         rs2.update
         '添加记录以后返回首页
         response.redirect "index.asp"

嗯，谢谢，已经解决了