Sql igen!

Hvofor virker dette ikk`??

:
<%

Response.Buffer = True

'Åbner forbindelse til databsen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
navn = session("navn")
emne = request.querystring("emne")
id = request.querystring("id")
rs.Open "SELECT * FROM besked WHERE emne='" & emne & "' AND id="' & id & "' AND (modtager='" & navn & "' or modtager='alle')" , Conn, 1, 3%>


Får denne fejl:

Fejltype:
ADODB.Recordset (0x800A0E7D)
Forbindelsen kan ikke bruges til at udføre denne handling. Den er enten lukket eller ugyldig i denne sammenhæng.
/hp/aagu/leasbesked.asp, line 12