Dim Projekt As String
        Dim mydatareader As SqlDataReader
        Dim tn As TreeNode
        Dim Wert As Integer
        Dim strCon As String = "Data Source=DEBLN193\;Initial" & _
          "Catalog=QualityDB;Integrated Security=True"
        Dim con As SqlConnection = New SqlConnection(strCon)
        Dim cmd As New SqlCommand("SELECT Project.Name FROM Site INNER JOIN" & _
          "Project ON Site.Site_id = Project.Site_id INNER JOIN [User] ON" & _
          "Site.Site_id = [User].Site_id GROUP BY Project.Name, [User].Name" & _
          "HAVING ([User].Name = @name)", con)
        cmd.Parameters.AddWithValue("@Name", Label2.Text)
 
        Dim da As SqlDataAdapter = New SqlDataAdapter()
        Dim neuerKnoten As TreeNode
        Try
 
            con.Open()
 
            da.SelectCommand = cmd
            mydatareader = cmd.ExecuteReader()
 
            While mydatareader.Read
 
 
                Projekt = CStr(mydatareader.Item("name"))             <-------
                tn = TreeView1.Nodes.Add("Projekt")