Hvad er der galt med denne kode?

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db.mdb")
Sql = "SELECT * FROM users WHERE id = " & Session("userid")

Set Rs = Conn.execute(Sql)
intPoint = Request.Form("points")

If Rs("f_points") >= intPoint THEN
intTmp = (Rs("points") - Request.Form("points"))
Rs("points_b") = Request.Form("points")
Rs("points") = intTmp
Rs.UpDate
datSuc = True
Else
datSuc = False
End If

If datSuc = True THEN
rs.AddNew
      rs("Navn") = Request.form("Navn")
      rs("kat") = Request.form("kat")
      rs("f_points") = Request.form("points")
      rs("Besked") = Request.form("Besked")
      rs("Dato") = Now()
      rs("IP") = request.servervariables("remote_Addr")
      rs.Update
Else
Response.redirect("fejl.asp")
End If
%>

Den siger følgende:

Den siger Too few parameters. Expected 1 i linien med Set Rs = Conn.Execute(Sql)