Undantag inträffade

Vad är det för fel. Jag fick detta felmeddelande:

Feltyp:
(0x80020009)
Undantag inträffade.
/inloggad/pdefault.asp, line 220

och rad 220 var:

<%If RecSet2("status") = "offline" Then%>

Det jag ville göra var allt lista alla medlemmars vänner och om dem är online eller offline. Alltså en kompis lista.
Hela koden för detta var denna:

<%
Set Connect2 = Server.CreateObject("ADODB.Connection") 
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/members.mdb")&";pwd=000"
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/kompisar.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From kompis Where ID1 = "&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
        <%Do Until RecSet.EOF%>
        <%Addera2 = "Select * From members Where id = "&RecSet("ID2")
		RecSet2.Open Addera2, Connect2, adOpenStatic, adLockOptimistic
		%>
       
          <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> 
            <a href="delete_friend.asp?delID=<%=RecSet("id")%>" ><img src="../images/delete-friend.gif" width="10" height="10" alt="Tabort fr&aring;n listan" border="0" align="absmiddle"></a><a href="send_mess.asp?toID=<%=RecSet("ID2")%>&direct=yes" target="mainFrame"><img src="../images/send-mess.gif" align="absmiddle" alt="Skicka ett meddelande till <% =RecSet("namn")%>" border="0" width="10" height="10"></a><a href="whois.asp?checkid=<%=RecSet("ID2")%>" target="mainFrame"> 
            <%=RecSet("namn")%></a> 
            <%If RecSet2("status") = "offline" Then%>
            <b><font color="#FF0000"><<</font></b> 
            <%Else%>
            <b><font color="#009966"><<</font></b> 
            <%End If%>
            </font></td>
        </tr>
        <%
RecSet2.Close

RecSet.MoveNext
Loop
Connect2.Close
Set RecSet2 = nothing
Set Connect2 = nothing
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>

Vad är det för fel?

------------------
... *hick*