Protected Sub Button1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim rowsAffected As Integer
        Dim strCon As String = "Data Source=DEBLN193\;Initial" & _
          "Catalog=QualityDB;Integrated Security=True"
        Dim da As SqlDataAdapter = New SqlDataAdapter()
        Dim con As SqlConnection = New SqlConnection(strCon)
        Dim cmd As New SqlCommand("UPDATE treetable SET parent_id = 1, item =" & _
          "Project.Name FROM [User] INNER JOIN Site ON [User].Site_id =" & _
          "Site.Site_id INNER JOIN Project ON Site.Site_id = Project.Site_id" & _
          "CROSS JOIN treetable()WHERE [User].Name = 'benjamin.schilbach'", con)
        Dim cmd1 As New SqlCommand("UPDATE treetable SET item = Build.Name," & _
        "parent_id = 2 FROM Build INNER JOIN Project ON Build.Project_id =" & _
        "Project.Project_id INNER JOIN Site ON Project.Site_id = Site.Site_id" & _
        "INNER JOIN [User] ON Site.Site_id = [User].Site_id CROSS JOIN" & _
        "treetable()WHERE [User].Name = 'benjamin.schilbach'", con)
        Dim cmd2 As New SqlCommand("UPDATE treetable SET parent_id = 3, item =" & _
        "'language.name' FROM Build INNER JOIN [File] ON Build.Build_id =" & _
        "[File].Build_id INNER JOIN Project ON Build.Project_id =" & _
        "Project.Project_id INNER JOIN Site ON Project.Site_id = Site.Site_id" & _
        "INNER JOIN [User] ON Site.Site_id = [User].Site_id CROSS JOIN" & _
        "treetable WHERE [User].Name = 'benjamin.schilbach'", con)
        Dim cmd3 As New SqlCommand("UPDATE treetable SET parent_id = 4, item =" & _
        "Language.Name FROM Build INNER JOIN [File] ON Build.Build_id =" & _
        "[File].Build_id INNER JOIN Language ON [File].Language_id =" & _
        "Language.Language_id INNER JOIN Project ON Build.Project_id =" & _
        "Project.Project_id INNER JOIN Site ON Project.Site_id = Site.Site_id" & _
        "INNER JOIN [User] ON Site.Site_id = [User].Site_id CROSS JOIN" & _
        "treetable WHERE [User].Name = 'benjamin.schilbach' ", con)
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
    End Sub