用AddNew出现错误，好像是说我我的SQL语句有问题

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"