Сохранение считывание данных в DataGridView

      myDataGrid.DataSource = myDataSource
      myDataGrid.DataBind()            'всё... таблица будет заполнена
 
     MsgBox("Таблица заполнена!")

Option Explicit On
Option Strict Off
 
Imports System.IO
Imports System.Text.Encoding
 
Public Class Form1
 
    Const FILEname As String = "d:\myTXT.txt"
    Const dgColumns As Integer = 15
    Const Separ As Char = ";"
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
             ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim Felder() As String
        Dim Zeile As String
 
        Dim dt = New DataTable()
        Dim sr = My.Computer.FileSystem.OpenTextFileReader(FILEname, _
                        System.Text.Encoding.Default)
 
        For I As Integer = 1 To dgColumns
            dt.Columns.Add("Column" & I)
        Next
 
        Do While (sr.Peek > -1)
            Zeile = sr.ReadLine
            Felder = Zeile.Split(Separ)
            Dim dr As DataRow = dt.NewRow
            dr.ItemArray = Felder
            dt.Rows.Add(dr)
        Loop
        DataGridView1.DataSource = dt
    End Sub
End Class

 Private Sub Button2_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button2.Click
        Try
 
        Dim myFile As String = "d:\myTXT.txt"
 
        If Not System.IO.File.Exists(myFile) Then
            System.IO.File.Create(myFile)
        End If
 
        Dim myText As String
        Dim dt As Data.DataTable
 
        Dim myWriter As New System.IO.StreamWriter(myFile, True) ' если поменять на false, то файл будет переписан
 
        dt = myGrid.DataSource
 
        For i = 0 To dt.Rows.Count - 1
            If myText = "" Then
                myText = dt.Rows(i).Item(0) & ";" & dt.Rows(i).Item(1) & ";" & dt.Rows(i).Item(2) & vbCrLf
            Else
                myText = myText & dt.Rows(i).Item(0) & ";" & dt.Rows(i).Item(1) & ";" & dt.Rows(i).Item(2) & vbCrLf
            End If
        Next
 
        myWriter.WriteLine(myText)
            myWriter.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub