Problemer med Update i ASP

Hejsa,
jeg er ved at lave et script der skal opdater en acces database. Alle oplysninger kommer fra en formular. jeg får følgende fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/admin/katalog/edit1.asp, line 28


Min kode ser således ud:

<%
dim navn
dim tekst
dim id
dim sql
%>
<!--#include file="../includes.asp"-->
<!--#include file="../loggedin.asp"-->
<!--#include file="../includes/dsn_admin_sub.asp"-->
<%
id=request("id")
overskrift = replace(request("overskrift"),"'","''")
adresse = replace(request("adresse"),"'","''")
tekst = replace(request("tekst"),"'","''")
sovepladser = replace(request("sovepladser"),"'","''")
strand = replace(request("strand"),"'","''")
spisepladser = replace(request("spisepladser"),"'","''")
tv = replace(request("tv"),"'","''")
video = replace(request("video"),"'","''")
parabol = replace(request("parabol"),"'","''")
stereo = replace(request("stereo"),"'","''")
ovn = replace(request("ovn"),"'","''")
opvaskemaskine = replace(request("opvaskemaskine"),"'","''")
vaskemaskine = replace(request("vaskemaskine"),"'","''")
torretumbler = replace(request("torretumbler"),"'","''")
brandeovn = replace(request("brandeovn"),"'","''")
sauna = replace(request("sauna"),"'","''")
solarium = replace(request("solarium"),"'","''")
boblebad = replace(request("boblebad"),"'","''")
areal = replace(request("areal"),"'","''")
telefon = replace(request("telefon"),"'","''")
saerligt = replace(request("saerligt"),"'","''")
prisa = replace(request("prisa"),"'","''")
prisb = replace(request("prisb"),"'","''")
prisc = replace(request("prisc"),"'","''")
prisd = replace(request("prisd"),"'","''")
prisw = replace(request("prisw"),"'","''")
udlejning = replace(request("udlejning"),"'","''")

sql = "UPDATE katalog SET overskrift= '" & overskrift &"'"
sql = sql & ", adresse= '" & adresse &"'"
sql = sql & ", tekst= '" & tekst &"'"
sql = sql & ", sovepladser= '" & sovepladser &"'"
sql = sql & ", strand= '" & strand &"'"
sql = sql & "WHERE id = "&id&""
Set rs = Conn.Execute (sql)
Conn.Close

Response.Redirect("edit.asp?id=id    ")
%>


Jeg ved godt at jeg har mange variabler, men nu ville jeg lige prøve kun at opdatere nogle få, altså de fire første.

Er der nogle der kan hjælpe og gennemskue dette problem?