Loop giver Stack overflow..

Hej..

Jeg har følgende kode der får serveren til at gå ned.. Når jeg går ind på siden står den bare i lang tid med "Websted fundet venter på svar" og så kommer den efter et stykke tid med "Service unavalible"..

Kan så se i loggen af der sker en "Stakoverflow"...

Dim directory As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(Server.MapPath("plugins"))

        For Each d As System.IO.DirectoryInfo In directory.GetDirectories
            Dim node As New TreeNode
            node.Text = d.Name
            node.ImageUrl = "~/Images/add.jpg"
            tvMenu.Nodes.Add(node)

            Dim RootNode As TreeNode = tvMenu.FindNode(d.Name)

            Dim myMenu = New XmlDocument
            myMenu.Load(MapPath("plugins/" & d.Name & "/AdminMenu.xml"))
            Dim myList As XmlNodeList
            myList = myMenu.GetElementsByTagName("nav")

            For Each el As XmlNode In myList
                node.Text = el.ChildNodes(0).InnerText

                node.ImageUrl = "~/Images/add.jpg"
                RootNode.ChildNodes.Add(node)
            Next
        Next

Hvad er det jeg gør galt??