Hvad er der galt med min update??

Jeg får fejlen..Data type mismatch in criteria expression.

Hvorfor?

<HTML>
<%
dim id2
id2 = Request.Querystring("id")

dim cn, cnstr
Set Cn = Server.CreateObject("ADODB.Connection")
cnstr = "provider=microsoft.jet.OLEDB.4.0;"
cnstr = cnstr & "Data Source=xxxxxxxx/dat.mdb;"
cn.connectionstring = cnstr
cn.open

dim sql
sql = "UPDATE dat SET stat = 'd' WHERE Id=('" & id2 & "')"
cn.execute sql

cn.close

response.redirect "beskeder2.asp"


%>
</HTML>