hvorfor virker dette ikke

Hej.
Jeg har lavet en kode der ser sådan ud.

    Dim ds As New DataSet("data"), dt As DataTable, dr As DataRow
    Dim a, b, c As String

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dt = New DataTable("test")

        dt.Columns.Add("navn", GetType(String))
        dt.Columns.Add("alder", GetType(String))
        dt.Columns.Add("dum", GetType(String))
        ds.Tables.Add(dt)
        '___________________________________________________________________________________________________



    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = TextBox1.Text
        b = TextBox2.Text
        c = TextBox3.Text
        dr = ds.Tables(0).NewRow()
        dr.Item("navn") = a
        dr.Item("alder") = b
        dr.Item("dum") = c
        ds.Tables(0).Rows.Add(dr)
        ds.WriteXml(Server.MapPath("test.xml"))
    End Sub

den add'er en row i data tablen og gemmer data'erne i en xml file.
problemmet er at hvis den skal gemme over 2 rows så kan den ikke, så gemmer den kun den sidste row man har lavet.
Jeg forstår det ikke håber i kan hjælpe.

Nicklas