Добовление записи в datagridview

 Dim dt As New DataTable ' глобальная переменная 
 
 
    Private Sub Test2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'добавляем в таблицу нужное нам количество столбцов с нужными нам типами данных
        dt.Columns.Add(New DataColumn("Col1", Type.GetType("System.String")))
        dt.Columns.Add(New DataColumn("Col2", Type.GetType("System.String")))
        dt.Columns.Add(New DataColumn("Col3", Type.GetType("System.String")))
        dt.Columns.Add(New DataColumn("Col4", Type.GetType("System.String")))
        ' передаем в грид таблицу
        DataGridView1.DataSource = dt
        ' переименовываем столбцы 
        DataGridView1.Columns("Col1").HeaderText = "Столбец 1"
        DataGridView1.Columns("Col2").HeaderText = "Столбец 2"
        DataGridView1.Columns("Col3").HeaderText = "Столбец 3"
        DataGridView1.Columns("Col4").HeaderText = "Столбец 4"
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' объявляем новую строку нашей таблицы
        Dim row As DataRow = dt.NewRow
        ' заносим в строку данные с первых двух полей
        row("Col1") = TextBox1.Text
        row("Col2") = TextBox2.Text
        'очищаем таблицу
        dt.Rows.Clear()
        'заносим в таблицу страку
        dt.Rows.Add(row)
        'обновляем ее в гриде
        DataGridView1.DataSource = dt
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'так как речь идет об одной строке то следующую пару данных заносим в первую строку таблицы
        If dt.Rows.Count <> 0 Then
            dt(0)("Col3") = TextBox3.Text
            dt(0)("Col4") = TextBox4.Text
            'обновляем грид после добавления данных
            DataGridView1.DataSource = dt
        End If
 
 
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If dt.Rows.Count <> 0 Then
            ' формируем строку с нужными разделителями
            Dim DataStr As String = dt(0)("Col1") & ";" & dt(0)("Col2") & ";" & dt(0)("Col3") & ";" & dt(0)("Col4")
            'путь для сохранения файла
            Dim Files As String = Application.StartupPath & "\FileTest.csv"
            'сохраняем строку в файл
            IO.File.WriteAllText(Files, DataStr, System.Text.Encoding.Default) ' при необходимости можно указать конкретную кодировку файла
        End If
    End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim fileCSV As String = ""
        Dim i As Integer = 0
        Do While i < DGV1.RowCount - 1
            For j As Integer = 0 To DGV1.ColumnCount - 1
                fileCSV &= (DGV1(j, i).Value).ToString() & ";"
            Next j
            fileCSV &= vbTab & vbLf
            i += 1
        Loop
        Dim wr As New StreamWriter(("путь к файлу "), False, Encoding.GetEncoding("windows-1251"))
        wr.Write(fileCSV)
        wr.Close()
    End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
DGV1.Rows.Clear()
        Try
            Dim fname As String = "Путь к файлу"
            Dim reader As New StreamReader(fname, Encoding.Default)
            Dim slene As String = ""
            Dim r As Integer = 0
            slene = reader.ReadLine
            Do
                slene = reader.ReadLine
                If slene Is Nothing Then
                    Exit Do
                Else
                    Dim words() As String = slene.Split(";")
                    DGV1.Rows.Add()
                    For i As Integer = 0 To 3
                        DGV1.Rows(r).Cells(i).Value = words(i)
                    Next
                    r += 1
                End If
            Loop
            reader.Close()
        Catch ex As Exception
        End Try
    End Sub

Imports System.IO
Imports System.Text