SQL语句未结束,但我发现不了错误!~~~~~~`重谢

下面这个错误怎么解决啊?谢了!
编译错误 
说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。 编译器错误信息: BC30205: 需要语句结束。源错误: 行 87：    conn= new oledbconnection(connstr)
行 88：    conn.open()
行 89：    sql="insert into daili (dataea,name,fwei,add,zijin,faren,tel,fax,xxadd,lxr,lxrtel,lxrmail,renshu,gli,cwu,ywu,shou,zhduan,qita,pingpai,wangdian,baihuo,lishuo,it,wqita,huoban,shineihuoban,shengnei,beizhu) values ( #"& request.querystring("data1")&"#,'"&name.text"','"&fwei.text"','"&adds.text"','"&zijin.text"','"&faren.text"','"&xingzhi.text"','"&tel.text"','"&fax.text"','"&xxadd.text"','"&lxr.text"','"&lxrtel.text"','"&lxrmail.text"','"&renshu.text"','"&gli.text"','"&cwu.text"','"&ywu.text"','"&shou.text"','"&zhduan.text"','"&qita.text"','"&pingpai.text"','"&wangdian.text"','"&baihuo.text"','"&lishuo.text"','"&it.text"','"&wqita.text"','"&huoban.text"','"&shineihuoban.text"','"&shengneihuoban.text"','"&shengnei"','"&beizhu.text &"')"
行 90：    dim cmd as oledbcommand= new oledbcommand(sql,conn)
行 91：    cmd.executereader()
 源文件: E:\工作\guestbook\add.aspx    行: 89 <SCRIPT language=vb runat="server">
 sub button1_c(sender as object,e as eventargs)
  step1.visible=false
 
  dim rd as oledbdatareader
  dim conn as oledbconnection=nothing
  dim connstr,sql as string

  connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db/guestbook.mdb")
  conn= new oledbconnection(connstr)
  conn.open()
  sql="insert into daili (dataea,name,fwei,add,zijin,faren,tel,fax,xxadd,lxr,lxrtel,lxrmail,renshu,gli,cwu,ywu,shou,zhduan,qita,pingpai,wangdian,baihuo,lishuo,it,wqita,huoban,shineihuoban,shengnei,beizhu) values ( #"& request.querystring("data1")&"#,'"&name.text"','"&fwei.text"','"&adds.text"','"&zijin.text"','"&faren.text"','"&xingzhi.text"','"&tel.text"','"&fax.text"','"&xxadd.text"','"&lxr.text"','"&lxrtel.text"','"&lxrmail.text"','"&renshu.text"','"&gli.text"','"&cwu.text"','"&ywu.text"','"&shou.text"','"&zhduan.text"','"&qita.text"','"&pingpai.text"','"&wangdian.text"','"&baihuo.text"','"&lishuo.text"','"&it.text"','"&wqita.text"','"&huoban.text"','"&shineihuoban.text"','"&shengneihuoban.text"','"&shengnei"','"&beizhu.text &"')"
  dim cmd as oledbcommand= new oledbcommand(sql,conn)
  cmd.executereader()
  end sub 
</SCRIPT>