update set, sql og acces

jeg har gjort koden så simpel som mulig, og aligevel vil den ikke gør det. nogen der kan se en fejl

<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/Vand/Dbase/basen.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

strSQL = "Update Analyse set Parameter = 'hej' where ID = 1"

Conn.Execute(strSQL)


' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>