Dim geraetenameN, teilenameN, endteilN As GeraeteTreeNode
        For Each geraetename As DataRow In dtA1.Rows
            geraetenameN = New GeraeteTreeNode(geraetename.Item(1).ToString, _
              New Geraete(0, 99, "Test1"))
            For Each teilename As DataRow In dtA2.Rows
                If geraetename.Item(0).Equals(teilename.Item(1)) Then
                    teilenameN = New GeraeteTreeNode(teilename.Item( _
                      2).ToString, New Geraete(1, 199, "Test2"))
                    geraetenameN.Nodes.Add(teilenameN)
                    For Each endteil As DataRow In dtA3.Rows
                        If teilename.Item(0).Equals(endteil.Item(1)) Then
                            endteilN = New GeraeteTreeNode(endteil.Item(2), New _
                              Geraete(1, 299, "Test3"))
                            teilenameN.Nodes.Add(endteilN)
                        End If
                    Next
                End If
            Next
            Me.TreeView1.Nodes.Add(geraetenameN)
        Next