Trække tal fra

Hejsa

Jeg har prøvet på at lave et lille script, som skal trække tal fra..

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/sys.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from kasse where id = 1"
rs.Open strSQL, Conn, 1, 3
strBelob = RS("belob") + Request.Form("belob")
RS("belob") = strBelob
rs.Update
response.redirect("KasseStatus.asp?mode=passok&error2=Kassen er nu opdateret.")
%>


Men det virker ikke, det melder ingen fejl eller noget men tallet bliver bare ikke opdateret...