Opdatere et område dynamisk

Jeg har en masse forms til indtastning af nogle produkter.

Her skal der være mulighed for dynamisk at tilføje flere felter til domæner hvilket jeg ikke helt kan gennemskue.

Jeg har en funktion som tilføjer domæner:
Function domains(Optional ByVal Antal As Integer = 1)

        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 I As Integer
        Controls.Add(createlabel("der er " & Antal & " rækker"))
        For I = 0 To Antal

            Dim Dom As New TextBox
            Dim Domaction As New DropDownList

            Domaction.Items.Insert(0, New ListItem("Redelegeres", 0))
            Domaction.Items.Insert(1, New ListItem("Bestilles", 1))

            tr1 = New System.Web.UI.WebControls.TableRow
            'k1
            tc1 = New System.Web.UI.WebControls.TableCell
            tc1.Controls.Add(createlabel("Domæne:"))
            tr1.Controls.Add(tc1)
            'k2
            tc1 = New System.Web.UI.WebControls.TableCell
            tc1.Width = New Unit("10px")
            tr1.Controls.Add(tc1)
            'k3
            tc1 = New System.Web.UI.WebControls.TableCell
            Dom.Width = New Unit("200px")
            Dom.ID = "Dom" & I
            Domaction.ID = "Domaction" & I
            tc1.Controls.Add(Dom)
            tc1.Controls.Add(Domaction)
            tr1.Controls.Add(tc1)
            'k4
            tc1 = New System.Web.UI.WebControls.TableCell
            tc1.Width = New Unit("10px")
            tr1.Controls.Add(tc1)
            'k5
            tc1 = New System.Web.UI.WebControls.TableCell
            tr1.Controls.Add(tc1)
            t1.Controls.Add(tr1)
        Next

        tr1 = New System.Web.UI.WebControls.TableRow
        'k1
        tc1 = New System.Web.UI.WebControls.TableCell
        tc1.RowSpan = 2
        tr1.Controls.Add(tc1)
        tc1.RowSpan = 3
        DomBut.Text = "Tilføj domæne"
        tc1.Controls.Add(DomBut)
        tr1.Controls.Add(tc1)
        t1.Controls.Add(tr1)

        Return t1
    End Function


Denne funktion bliver kaldet af min sub som bliver kaldet i pageload:

    Sub control()
        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

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

        ' Hosting plan
        tr1 = New System.Web.UI.WebControls.TableRow
        'k1
        tc1 = New System.Web.UI.WebControls.TableCell
        tc1.Controls.Add(form())
        tr1.Controls.Add(tc1)
        'k2
        tc1 = New System.Web.UI.WebControls.TableCell
        tc1.Width = New Unit("10px")
        tr1.Controls.Add(tc1)
        'k3
        tc1 = New System.Web.UI.WebControls.TableCell
        tc1.Controls.Add(domains())
        tr1.Controls.Add(tc1)
        t1.Controls.Add(tr1)
        Controls.Add(t1)

    End Sub


Er der en som kan komme med en konstruktiv løsning til dette problem?