Update fejler - why?

Hvad gør jeg forkert her??

  Set conntemp = Server.CreateObject("ADODB.Connection")
  DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("XXXX.mdb") & "; UID=Administrator; PWD="
conntemp.open DSN
red=request("red")
ID=request("id")
if request("upd") = 1 then
      SQL = "UPDATE [Personale] SET Navn = 'Hej' WHERE id = 2 "
      conntemp.execute(sql)
end if

Den skriver:
icrosoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Handlingen skal bruge en opdaterbar forespørgsel.