TextBox > DataGridView > XML

Public Class Form1
    Dim dt As New DataTable ' - создание объекта таблица данных
    Dim ds As New DataSet ' - создание объекта набор данных
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        If IO.File.Exists("D:\Visual Studio 2010\DataGridView\tabl.xml") = False Then
 
            ' Если XML-файла НЕТ:
            DataGridView1.DataSource = dt
            ' Заполнение шапки таблицы:
            dt.Columns.Add("Колонка")
 
            ' Добавить объект dt в DataSet:
            ds.Tables.Add(dt)
 
        Else ' Если XML-файл ЕCТЬ:
            ds.ReadXml("С:\tabl.xml")
            DataGridView1.DataMember = "Название таблицы"
            DataGridView1.DataSource = ds
 
        End If
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        DataGridView1.Rows.Add(TextBox1.Text) 'По-моему вся проблема в этой строчке
 
        dt.TableName = "Название таблицы"
        ds.WriteXml("С:\tabl.xml")
 
    End Sub
 
End Class

dt.Rows.Add(TextBox1.Text)

ds.WriteXml("С:\tabl.xml")

Public Class Form1
    Dim dt As New DataTable
    Dim ds As New DataSet
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If IO.File.Exists("C:\tabl.xml") = False Then
            dt.TableName = "Название таблицы"
            dt.Columns.Add("Колонка")
            DataGridView1.DataSource = dt
            ds.Tables.Add(dt)
        Else
            ds.ReadXml("C:\tabl.xml")
            dt = ds.Tables(0)
            DataGridView1.DataSource = dt
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dt.Rows.Add(TextBox1.Text)
        ds.WriteXml("C:\tabl.xml")
    End Sub
End Class