Hvad laver jeg fejl her?

Hej,
Jeg skal have den til at opdatere tallet i kolonnen point i min database. Men det virker ikke..

<% if Request.QueryString("mode") = "gem" then
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("demo.mdb"))
 
  Set rs = Server.CreateObject("ADODB.Recordset")
  sql = "update bruger Set point=point+1 Where brugernavn = " & Session("brugernavn")
    rs.open sql, myConn
  rs.Update
 
end if %>