Error ved Filter

Jeg får feilen:

Error Type:
(0x80020009)
Exception occurred.

Det er i denne linje: adoRsInnlegg.Filter = "MessageID = " & MessageID

Scriptet ser slik ut:
Public Sub treeMessage_Build(MessageID, Level)
        set adoCn = Server.CreateObject("ADODB.Connection")
        adoCn.Open strConn
        intForumID = Request.QueryString("F")
        set adoRs = Server.CreateObject("ADODB.Recordset")
        strSQL = "SELECT * FROM Messages WHERE ForumID = " & intForumID & " ORDER BY Date DESC"
        set adoRsInnlegg = adoCn.Execute(strSQL)

        adoRsInnlegg.Filter = "MessageID = " & MessageID

        Response.Write"<TR>"
          Response.Write"<TD WIDTH=""60%"" ALIGN=""left""><IMG SRC=""spacer.gif"" WIDTH=''" & Level * 20 & " HEIGHT=""1""><IMG SRC=""../message.gif"" WIDTH=""24"" HEIGHT=""19"" ALIGN=""absmiddle"" HSPACE=""4"">"
          Response.Write "<A HREF=""message.asp?MessageID=" & adoRsInnlegg("MessageID") & """>" & adoRsInnlegg("Subject") & "</a>"
          Response.Write"<TD WIDTH=""20%"" ALIGN=""left""><IMG SRC=""face.gif"" WIDTH=""18"" HEIGHT=""25"" ALT="" ALIGN=""absmiddle"" HSPACE=""4"">"
          Response.Write "<A HREF='mailto:" & adoRsInnlegg("Email") & "'>" & adoRsInnlegg("PostedBy") & "</A>"
                Response.Write"<TD WIDTH=""20%"" ALIGN=""right"">" & adoRsInnlegg("Date")
        Response.Write"</TR>"
       
        adoRsInnlegg.Filter = "InReplyTo = " & MessageID

        If Not (adoRsInnlegg.EOF And adoRsInnlegg.BOF) Then
            adoRsInnlegg.MoveFirst
            While Not adoRsInnlegg.EOF
                treeMessage_Build adoRsInnlegg("MessageID"), Level+1
                adoRsInnlegg.MoveNext
            Wend
        End If
       
        adoRsInnlegg.Close
        Set adoRsInnlegg = Nothing           
                                               
        adoCn.Close
        Set adoCn = Nothing           
End Sub