Fejl i wep part, hvor?

Jeg har tilføjet dette til en wep part som nu laver fejl. Er der en som kan se hvad jeg har gjort galt?

Sub Populate()

        Dim Text As Label
        Dim Data As DataRow
        Dim I As Integer
        Dim t1 As New System.Web.UI.WebControls.Table
        Dim tr1 As New System.Web.UI.WebControls.TableRow
        Dim tc1 As New System.Web.UI.WebControls.TableCell

        Dim DS As DataSet

        Try
            Dim MyConnection As SqlConnection
            Dim MyCommand As SqlDataAdapter
            Dim sortby As String = "Sale.Id"
            If SortStr <> "" Then
                sortby = SortStr
            End If


            MyConnection = New SqlConnection("Server=localhost;Database=Intranet;uid=sa;pwd=pocahontas;")
            MyCommand = New SqlDataAdapter("select *, Products.Name As ProductName, Sale.Id As SaleId, Products.Id As ProductId, Customers.Id As CustomersId, Employee.FName As Fornavn, Employee.LName As efternavn from Sale, Customers, Products, Employee Where Customers.Id = Sale.Customer And Products.Id = Sale.Product And sale.Anulleret != 1 And Employee.Id = Sale.Employee Order By " & sortby & " Asc", MyConnection)

            DS = New DataSet
            MyCommand.Fill(DS, "Authors")
        Catch ex As Exception
            Label.Text = ex.ToString
        End Try


        Text.Font.Bold = True

        'start på tabel
        t1.CssClass = "Normal"
        t1.CellPadding = 2
        t1.CellSpacing = 0

        ' start tabel
        t1.Rows.Add(tr1)

        If [sagsnr] = True Then
            Text.Text = "Sags Nr."
            tc1.Controls.Add(Text)
            tr1.Controls.Add(tc1)
        End If

        If [firma] = True Then
            Text.Text = "Firma"
            tc1.Controls.Add(Text)
            tr1.Controls.Add(tc1)
        End If

        If [Domæne] = True Then
            Text.Text = "Domæne"
            tc1.Controls.Add(Text)
            tr1.Controls.Add(tc1)
        End If

        If [Sælger] = True Then
            Text.Text = "Sælger"
            tc1.Controls.Add(Text)
            tr1.Controls.Add(tc1)
        End If

        If [Salgsdato] = True Then
            Text.Text = "Salgsdatp"
            tc1.Controls.Add(Text)
            tr1.Controls.Add(tc1)
        End If

        If [Materiale] = True Then
            Text.Text = "Materiale"
            tc1.Controls.Add(Text)
            tr1.Controls.Add(tc1)
        End If

        If [Design] = True Then
            Text.Text = "Design"
            tc1.Controls.Add(Text)
            tr1.Controls.Add(tc1)
        End If

        If [Underret] = True Then
            Text.Text = "Underret"
            tc1.Controls.Add(Text)
            tr1.Controls.Add(tc1)
        End If

        If [Rettet] = True Then
            Text.Text = "Rettet"
            tc1.Controls.Add(Text)
            tr1.Controls.Add(tc1)
        End If

        If [Godkendt] = True Then
            Text.Text = "Godkendt"
            tc1.Controls.Add(Text)
            tr1.Controls.Add(tc1)
        End If

        If [Faktura] = True Then
            Text.Text = "Faktura"
            tc1.Controls.Add(Text)
            tr1.Controls.Add(tc1)
        End If

        If [Teknik] = True Then
            Text.Text = "Teknik"
            tc1.Controls.Add(Text)
            tr1.Controls.Add(tc1)
        End If

        If [Cd] = True Then
            Text.Text = "Cd"
            tc1.Controls.Add(Text)
            tr1.Controls.Add(tc1)
        End If


        For Each Data In DS.Tables("Authors").Rows
            I += 1
            t1.Rows.Add(tr1)
            If I Mod 2 = 0 Then
                tr1.BackColor = System.Drawing.Color.Gray
            Else
                tr1.BackColor = System.Drawing.Color.White
            End If

            If [sagsnr] = True Then
                Text.Text = Data.Item("Id")
                tc1.Controls.Add(Text)
                tr1.Controls.Add(tc1)
            End If

            If [firma] = True Then
                Text.Text = Data.Item("Id")
                tc1.Controls.Add(Text)
                tr1.Controls.Add(tc1)
            End If

            If [Domæne] = True Then
                Text.Text = "<a href=""http://www." & Data.Item("Dom") & """ target=""_blank"">" & Data.Item("Dom") & "</a>"
                tc1.Controls.Add(Text)
                tr1.Controls.Add(tc1)
            End If

            If [Sælger] = True Then
                Text.Text = Data.Item("Id")
                tc1.Controls.Add(Text)
                tr1.Controls.Add(tc1)
            End If

            If [Salgsdato] = True Then
                Text.Text = Data.Item("Id")
                tc1.Controls.Add(Text)
                tr1.Controls.Add(tc1)
            End If

            If [Materiale] = True Then
                Text.Text = Data.Item("Id")
                tc1.Controls.Add(Text)
                tr1.Controls.Add(tc1)
            End If

            If [Design] = True Then
                Text.Text = Data.Item("Id")
                tc1.Controls.Add(Text)
                tr1.Controls.Add(tc1)
            End If

            If [Underret] = True Then
                Text.Text = Data.Item("Id")
                tc1.Controls.Add(Text)
                tr1.Controls.Add(tc1)
            End If

            If [Rettet] = True Then
                Text.Text = Data.Item("Id")
                tc1.Controls.Add(Text)
                tr1.Controls.Add(tc1)
            End If

            If [Godkendt] = True Then
                Text.Text = Data.Item("Id")
                tc1.Controls.Add(Text)
                tr1.Controls.Add(tc1)
            End If

            If [Faktura] = True Then
                Text.Text = Data.Item("Id")
                tc1.Controls.Add(Text)
                tr1.Controls.Add(tc1)
            End If

            If [Teknik] = True Then
                Text.Text = Data.Item("Id")
                tc1.Controls.Add(Text)
                tr1.Controls.Add(tc1)
            End If

            If [Cd] = True Then
                Text.Text = Data.Item("Id")
                tc1.Controls.Add(Text)
                tr1.Controls.Add(tc1)
            End If

        Next
        Controls.Add(t1)
    End Sub