大家帮我看一下这段代码，怎么始终有错工。
<%
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath("data.mdb")
Set conn= Server.CreateObject("ADODB.Connection")
p1=Provider&Path
conn.Open P1
set rs=server.createobject("adodb.recordset")
sql="select * from user where xh='"&request("xuehao")&"'"
    rs.open sql,conn,1,3
        rs.addnew
        rs("xh")=request("xuehao")
        rs("xm")=request("username")
        rs.update
        rs.close
%>