Syntax error in UPDATE statement.?

Hej jeg har lavet et script, men jeg får en fejl "Syntax error in UPDATE statement" hvor er problemet? jeg systes ikke jeg kan finde fejlen selv.

Her kommer Scriptet:

_-------------------------------------------------


<%
dim dbname
dim cn
dim constr
dim sqlstring
dim sqlstring1
dim resultat
dim id
dim navn
dim vej
dim post
dim by
dim tlf
dim hold
dim bruger
dim Adgangskode
dim adgang

navn=Request.Form("navn")
vej=Request.Form("vej")
post=Request.Form("post")
by=Request.Form("by")
tlf=Request.Form("tlf")
hold=Request.Form("hold")

id=request.querystring("id")

dbname=Server.MapPath("include/database.mdb")

set cn= server.createobject("ADODB.Connection")

constr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & dbname
cn.connectionstring = constr

cn.open
sqlstring1 = "Select * from brugerdatabase where id=" & id & ";"
set resultat=cn.execute(sqlstring1)

'response.write resultat("bruger")

bruger = resultat("bruger")
Adgangskode = resultat("Adgangskode")
adgang = resultat("adgang")

sqlstring="update brugerdatabase set adgang='" & adgang & "', Adgangskode='" & Adgangskode & "', bruger='" & bruger & "', navn='" & navn & "', vej='" & vej & "', post='" & post & "', by='" & by & "', tlf='" & tlf & "', hold='" & hold &"' where id=" &  id & ";"
response.write sqlstring
cn.execute(sqlstring)

cn.close
set cn=nothing
'response.redirect"start.asp?page=Visprofil"   
%>

_-------------------------------------------------

Mvh Jens