ASP中遇到的问题，求助帮我看下面的代码有什么问题

<%
dim rs,sql
dim zsxm,xb,lxdz,lxdianhua,sfzh,qq
zsxm=Trim(Request("name"))
xb=Trim(Request("xb"))
lxdz=Trim(Request("dizhi"))
yzbm=Trim(Request("yzbm"))
lxdianhua=Trim(Request("yournumber"))
sfzh=Trim(Request("idcard"))
qq=Trim(Request("yourqq"))
set rs=server.createobject("adodb.recordset")
sql = "select zsxm,lxdz,yzbm,sfzh,lxdianhua,qq,xb from [shenqinghm]"
rs.open sql,conn,1,3
rs.addnew
rs("zsxm")=zsxm
rs("lxdz")=lxdz
rs("yzbm")=yzbm
rs("sfzh")=sfzh
rs("lxdianhua")=lxdianhua
rs("qq")=qq
rs("xb")=xb
rs.update
rs.close
set rs=nothing
closedb
response.Write "申请成功，请耐心等待管理员审核!"
%>
ADODB.Recordset 错误 '800a0bb9'

参数类型不正确，或不在可以接受

你这样看看行不行,如果还不行,请检查数据库中的字段是否正确.
<%
dim zsxm,xb,lxdz,lxdianhua,sfzh,qq,rs,sql
zsxm=trim(request.form("name"))
xb=trim(request.form("xb"))
lxdz=trim(request.form("dizhi"))
yzbm=trim(request.form("yzbm"))
lxdianhua=trim(request.form("yournumber"))
sfzh=trim(request.form("idcard"))
qq=trim(request.form("yourqq"))
set rs=server.createobject("adodb.recordset")
sql="select * from shenqinghm"
rs.open sql,conn,1,3
rs.addnew
rs("zsxm")=zsxm
rs("lxdz")=lxdz
rs("yzbm")=yzbm
rs("sfzh")=sfzh
rs("lxdianhua")=lxdianhua
rs("qq")=qq
rs("xb")=xb
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Write "申请成功，请耐心等待管理员审核!"
%>

遇到什么问题？应该说明白遇到什么问题，不然不好分辨！