Добавление записей в DataSet - Visual Basic .NET - Ответ 5212081

Me.ClientsTableAdapter.Fill(Me.ReportsDS.Clients)
        DGV_Main.AutoGenerateColumns = True
        Dim newClientsRow As reportsDataSet.ClientsRow
        newClientsRow = ReportsDS.Clients.NewClientsRow()
 
        Dim myCol As New Collection
        Dim Buf As String
 
        Microsoft.VisualBasic.FileOpen(1, "c:\newdata.csv", OpenMode.Input)
        Do While Not EOF(1)
            Buf = Microsoft.VisualBasic.FileSystem.LineInput(1)
            myCol.Add(Buf + vbNewLine)
        Loop
        Microsoft.VisualBasic.FileSystem.FileClose(1)
 
redim_:
        If myCol.Count <> 0 Then
            For j As Integer = 1 To myCol.Count
                Dim new_line() As String = Split(myCol(j), ",")
                newClientsRow.id = Guid.NewGuid()
                newClientsRow.date_time = Replace(new_line(0), "2012", My.Settings.Year)
                newClientsRow.name_car = RTrim(new_line(1))
                newClientsRow.temp = Replace(new_line(2), ".", ",")
                newClientsRow.volume = Replace(new_line(3), ".000000", "")
                newClientsRow.number_of_tank = new_line(4)
                newClientsRow.type_of_car = new_line(5)
            Next
        End If
 
        ReportsDS.Clients.Rows.Add(newClientsRow)
        ClientsTableAdapter.Update(newClientsRow)
        ClientsTableAdapter.Fill(ReportsDS.Clients)
 
        myCol.Remove(myCol.Count)
        Microsoft.VisualBasic.FileOpen(2, "c:\newdata.csv", OpenMode.Output)
        For i = 1 To myCol.Count
            Print(2, myCol(i))
        Next i
        Microsoft.VisualBasic.FileSystem.FileClose(2)
        If myCol.Count > 0 Then GoTo redim_