בעיה עם פונקציה רקרוסיבית וRS

אוקי אז ככה בניתי פורום עכשיו רציתי אפשרות למחוק שירשור שלם(פורום עץ)
אז ככה בניתי פונקציה רקרוסיבית שמקבלת את ה- ID של ההודעה הראשונה בשירשור
ואז הפונקציה לוקחת את כל ההודעות שההודעה הראשונה היא ההודעת אב שלהן
ואז אני עובר עם לולאה וקורא לפונקציה כל פעם עם ID של הודעה שההודעה הראשונה
הייתה הודעה אב שלה ואז ככה אני עובר ברקורסיה על כל ההודעות בעץ(שירשור)
אז עכשיו בשביל לעשות את זה הייתי חייב לפתוח Rs אז חשבתי שאולי בלתי אפשרי שכמה RS בעלי אותו שם יהיו פתוחים בו זמנית אז השתמשתי ב- GETROWS
וסגרתי את ה- RS ועדין יש לי בעיה
אז בקיצר יש מושג מה הבעיה
הקוד:


function Delete(id)
        Set Rs = CreateObject("ADODB.Recordset")
        Rs.cursortype=3    
        Rs.Open "Select ID where Parented="&id
        ar=Rs.GetRows
        Rs.Close
        set Rs=nothing
        for i=0 to uBound(ar,2)
            Delete(ar(0,i))        
        next
        str="Delete * from Msgs where ID="&id
        Conn.Execute(str)
        
    end function

תודה מראש לעוזרים