Imports System.IO

Public Class Form1

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim textFileStream As New IO.FileStream("Z:\Control\vb\spisok.csv", IO.FileMode.OpenOrCreate,
                       IO.FileAccess.ReadWrite, IO.FileShare.None)
        Dim myFileWriter As New IO.StreamWriter(textFileStream)
        Dim myFileReader As New IO.StreamReader(textFileStream)
        Dim intCounter As Integer
        Dim strFileContents As String
        Dim separator As String

            While Not myFileReader.EndOfStream()
            strFileContents = myFileReader.ReadLine()
                                  MessageBox.Show(strFileContents)
                ''strFileContents = myFileReader.ReadToEnd()
            End While
                     myFileWriter.Close()
            myFileReader.Close()
            textFileStream.Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim strFileContents As String

        Dim dsNewRow As DataRow = CardDataSet.Tables("Consumer").NewRow()
        'Dim x As DataColumn = CardDataSet.Tables("Consumer").NewRow()


        Using parser As New Microsoft.VisualBasic.FileIO.TextFieldParser("Z:\Control\vb\spisok.csv")
            parser.SetDelimiters(";")
            Dim i As Integer
            i = 0

            While Not parser.EndOfData

                            MessageBox.Show(parser.ReadFields(i + 1))
                dsNewRow("f_ConsumerName") = "fffff"    'не работает
              
            End While
        End Using

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim dsNewRow As DataRow = CardDataSet.Tables("Consumer").NewRow()

        Using MyReader As New Microsoft.VisualBasic.
                             FileIO.TextFieldParser(
                               "Z:\Control\vb\spisok.csv")


            MyReader.TextFieldType = FileIO.FieldType.Delimited
            MyReader.SetDelimiters(";")

            Dim currentRow As String()
            Dim i As Integer
            i = 0
            While Not MyReader.EndOfData
                Try


                    currentRow = MyReader.ReadFields()
                    Dim currentField As String
                    For Each currentField In currentRow
                        i = i + 1
                        If i > 2 Then
                            MsgBox(currentField)
                     
                        End If
                        Next
                Catch ex As Microsoft.VisualBasic.
                            FileIO.MalformedLineException
                    MsgBox("Line " & ex.Message &
                    "is not valid and will be skipped.")
                End Try


            End While
        End Using
    End Sub

    Private Sub ConsumerBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConsumerBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ConsumerBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.CardDataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
               Me.ConsumerTableAdapter.Fill(Me.CardDataSet.Consumer)

    End Sub

    End Class

      dsNewRow("ConsumerName") = "fffff"    'не работает