sql update acces

Jeg kan ikek få det til at virke

<%
' 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("/Dbase/basen.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

strSQL = "Update Analyse set "
strSQL = strSQL & "Parameter= 'Request.form("1Parameter")', "
strSQL = strSQL & " Where Id = 1"

Conn.Execute(strSQL)

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