hvorfor får jeg fejl

<%
'options
'1 = spørgsmål oprettet af mig
'2 = spørgsmål hvor jeg deltager

strOption = Request.QueryString("option")

if IsNull(strOption) then
Response.Write "Du skal vælge noget du vil se"
else
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("System.mdb")
Conn.Open DSN

if strOption = "1" then
strSQL = "Select * From threads Where Threadskriver = '" & session("bruger") & "'"
elseif strOption = "2" then
strSQL = "Select * From threads Where Comskriver = '" & session("bruger") & "'"
end if
Set rs = Conn.Execute(strSQL)

if strOption = "1" then
Response.Write "<a href='sethread.asp?id=" & rs("Id") & "'>" & rs("Threademne") & "</a> <br>"
elseif strOption = "2"
Response.Write "<a href='sethread.asp?id=" & rs("Comid") & "'>Se spørgsmål</a> <br>"
end if

Conn.Close
set Conn = Nothing
end if
%>

jeg får fejl:
(0x80020009)
Exception occurred.
fejllinjen er den med rs("Threademne") hvorfor får ejg den fejl?