Too few parameters

<%
Response.write "Inbox for " & Session("mode") & ""
brugernavn = Session("mode")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/mode/db/community.mdb")
Conn.Open DSN
strSQL = "SELECT * FROM inbox WHERE modtager=" & brugernavn
Set rs = Conn.Execute(strSQL)

If rs.OEF OR rs.BOF Then
Response.write "Du har ingen meddelelser i din inbox"
End if
Do
    Response.write rs("overskrift")
    Response.write "<br>"
  rs.MoveNext

Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>

Når jeg kører det script, får jeg vist:
Inbox for jacob
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/mode/inbox/default.asp, line 10


Linie 10: Set rs = Conn.Execute(strSQL)

Hvorfor?

/cotus