Public Sub New(ByVal Tvw As TreeNode)
        _MainNode = Tvw
        _MainNode.SelectedImageIndex = 0
        _MainNode.Tag = Me
        _Sparten = New Hashtable
 
        Dim con As New SqlConnection("Data Source=" & cSettings.DATABASE_SERVER _
          & "; Initial Catalog=" & cSettings.DATABASE_NAME & "; Integrated" & _
          "Security=TRUE")
 
 
        Dim cm_SELECT As New SqlCommand("SELECT * FROM Lager", con)
 
        Dim cm_DELETE As New SqlCommand("DELETE FROM Lager WHERE ID=@ID", con)
        cm_DELETE.Parameters.Add("@ID", SqlDbType.VarChar, 32, "ID")
 
        Dim cm_UPDATE As New SqlCommand("UPDATE Lager SET" & _
          "Lagerbezeichnung=@Lgbez, SP_ID=@SPID WHERE ID=@ID", con)
        cm_UPDATE.Parameters.Add("@ID", SqlDbType.VarChar, 32, "ID")
        cm_UPDATE.Parameters.Add("@Lgbez", SqlDbType.VarChar, 50, _
          "Lagerbezeichnung")
        cm_UPDATE.Parameters.Add("@SPID", SqlDbType.VarChar, 32, "SP_ID")
 
        Dim cm_INSERT As New SqlCommand("INSERT INTO Lager (ID," & _
          "Lagerbezeichnung, SP_ID) VALUES(@ID, @Lgbez, @SpId)", con)
        cm_INSERT.Parameters.Add("@ID", SqlDbType.VarChar, 32, "ID")
        cm_INSERT.Parameters.Add("@Lgbez", SqlDbType.VarChar, 50, _
          "Lagerbezeichnung")
        cm_INSERT.Parameters.Add("@SPID", SqlDbType.VarChar, 32, "SP_ID")
 
        _DA_Lager.SelectCommand = cm_SELECT
        _DA_Lager.UpdateCommand = cm_UPDATE
 
        'GENAU HIER SPRINGT ER EINFACH RAUS AUS DEM KONSTRUKTOR !!!!!!!!
 
 
        _DA_Lager.DeleteCommand = cm_DELETE
        _DA_Lager.InsertCommand = cm_INSERT
 
        Dim DA_Sparten As New SqlDataAdapter("SELECT * FROM Sparten", con)
 
 
 
        con.Open()
        DA_Sparten.Fill(_DS_Lager, "Sparten")
        _DA_Lager.Fill(_DS_Lager, "Lager")
        _DS_Lager.Relations.Add("SpartenLager", _DS_Lager.Tables( _
          "Sparten").Columns("ID"), _DS_Lager.Tables("Lager").Columns("SP_ID"))
        con.Close()
 
        Dim Row As DataRow
        Dim sRow As DataRow
 
        For Each Row In _DS_Lager.Tables("Sparten").Rows
            Dim Sparten As New Sparte(Row.Item("ID").ToString, Row.Item( _
              "Sparte").ToString)
            _Sparten.Add(Sparten.Key, Sparten)
        Next
 
        For Each Row In _DS_Lager.Tables("Lager").Rows
 
            Dim myNode As TreeNode
            Dim myLager As cLager
            Dim mySparte As Sparte
 
            sRow = Row.GetParentRow("SpartenLager")
            mySparte = New Sparte(sRow.Item("ID").ToString, sRow.Item( _
              "Sparte").ToString)
 
            myNode = _MainNode.Nodes.Add("Lager", Row( _
              "Lagerbezeichnung").ToString)
            myLager = New cLager(Row("Lagerbezeichnung").ToString, mySparte, _
            myNode, Row)
            _Lager.Add(myLager)
        Next
    End Sub

VB RULEZ !