Request.QueryString

jeg har problemer med at få en QueryString til at virke.
jeg får hele tiden fejlen:

Data type mismatch in criteria expression.
line 55 (som er den linie med set rs = Conn.execute(strSQL) )

Nogen der kan hjælpe?

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db/maindb.mdb")
strSQL = "select * from nyheder where id='" & Request.QueryString("id") & "'"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write ""
else
Do Until rs.EOF
%>
<%= rs("overskrift") %>
<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>