Gem textbox i XML

Hejsa
Jeg er ved at noget, hvor værdien af en textbox skal skrives til en xml fil, eksister filen skal den bare overskrives.
Jeg har fundet noget kode her på sitet, men når jeg kør koden anden gang, uden at lukke programmet fejler det :-(

Jeg tror fejlen ligger i noget med nogle værdier der skal slettes, men jeg kan ikke få det til at virke.

Det er denne linie "dt.Columns.Add(dc)" der fejler.

Her er koden:

    Dim dc As New DataColumn, dt As New DataTable, dr As DataRow

    Private Sub btnSaveXML_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveXML.Click
        Dim item As String
        dc.ColumnName = "Name"
        dc.DataType = System.Type.GetType("System.String")
        dt.Columns.Add(dc)
        dr = dt.NewRow
        dr("Name") = TextBox1.Text
        dt.Rows.Add(dr)

        Dim ds As New DataSet
        ds.Tables.Add(dt.Copy)
        ds.WriteXml("C:\test.xml")

    End Sub


Mvh. Henrik