Private Sub LoadTreeFromXml()
        TreeView1.Nodes.Clear()
        Dim RootNode As New TreeNode
        RootNode.Text = XmlDataSource1.GetXmlDocument.DocumentElement.Name
        RootNode.Value = XmlDataSource1.GetXmlDocument.DocumentElement.Name
        RootNode.SelectAction = TreeNodeSelectAction.SelectExpand
        TreeView1.Nodes.Add(RootNode)
        ''
        Dim MyXML As System.Xml.XmlDocument = XmlDataSource1.GetXmlDocument
        Dim GroupList As System.Xml.XmlNodeList = MyXML.GetElementsByTagName("MyGroup")
        Dim i As Integer, j As Integer
        For i =  0  To GroupList.Count -  1 
            Dim OneXmlNode As System.Xml.XmlElement = GroupList(i)
            Dim GroupNode1 As New TreeNode
            GroupNode1.Text = GroupList(i).Attributes("MyGroupName").Value
            GroupNode1.Value = GroupList(i).Attributes("GroupLocation").Value
            GroupNode1.SelectAction = TreeNodeSelectAction.SelectExpand

            Dim SubGroupList As System.Xml.XmlNodeList = OneXmlNode.GetElementsByTagName("MySubGroup")

            For j =  0  To SubGroupList.Count -  1 
                If SubGroupList(j).Attributes.Count =  2  Then
                    Dim SubGroupNode1 As New TreeNode
                    ''добавляем только непустые узлы - на чем падает DataBind
                    SubGroupNode1.Text = SubGroupList(j).Attributes("MySubGroupName").Value
                    SubGroupNode1.Value = SubGroupList(j).Attributes("SubGroupLocation").Value
                    SubGroupNode1.SelectAction = TreeNodeSelectAction.SelectExpand
                    GroupNode1.ChildNodes.Add(SubGroupNode1)
                End If
            Next
            RootNode.ChildNodes.Add(GroupNode1)
        Next
    End Sub

    Protected Sub TreeView1_SelectedNodeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.SelectedNodeChanged
        ''текущий узел запомнили в полях формы
        If Not (sender.SelectedNode Is Nothing) Then
            TextBox1.Text = sender.SelectedNode.text
            TextBox3.Text = sender.SelectedNode.valuepath
            TextBox4.Text = ""
        Else
            TextBox4.Text = "Ошибка, В событии изменения узла нет нового выбранного узла"
            ''ТУТ КАКОЙ-ТО ГЛЮК - СОБЫТИЕ ИЗМЕНЕНИЯ НОДА, А ВЫБРАННОГО НОДА НЕТ
            TextBox1.Text = TreeView1.Nodes( 0 ).Text
            TextBox3.Text = TreeView1.Nodes( 0 ).ValuePath
        End If
    End Sub