Импорт из файла csv в combobox

Public Class Form1
    Dim ServiceList As New List(Of String)
    Dim PriceList As New List(Of AnimalServicePrice)
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim source() As String = IO.File.ReadAllLines("C:\Users\administrator\Desktop\tst.csv", System.Text.Encoding.Default)
        Dim services() As String = Split(source(0), ",")
        For i = 1 To UBound(services)
            ServiceList.Add(services(i))
 
            Dim CBCell As New DataGridViewComboBoxCell '
            CBCell = DataGridView1.Rows(0).Cells(1) : CBCell.Items.Add(services(i)) '<----Добавление в DataGridViewComboBoxCell
        Next
 
        For i = 1 To UBound(source)
            Dim line() As String = Split(source(i), ",")
 
            Dim CBCell As New DataGridViewComboBoxCell
            CBCell = DataGridView1.Rows(0).Cells(0) : CBCell.Items.Add(line(0))
 
            For j = 1 To UBound(line)
                PriceList.Add(New AnimalServicePrice With {.breed = line(0), .service = ServiceList(j - 1), .price = line(j)})
            Next
        Next
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim combCol As New DataGridViewComboBoxColumn
        With combCol
            .Width = 150
            .HeaderText = "Порода"
        End With
        Dim combCol1 As New DataGridViewComboBoxColumn
        With combCol1
            .Width = 100
            .HeaderText = "Услуга"
 
        End With
        Dim manytext As New DataGridViewTextBoxColumn
        With manytext
            .Width = 70
            .HeaderText = "Цена"
        End With
        DataGridView1.Columns.AddRange(New DataGridViewColumn() {combCol, combCol1, manytext})
    End Sub
    Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        For i = 0 To PriceList.Count - 1
            If DataGridView1.Item(0, e.RowIndex).Value = PriceList(i).breed Then
                If DataGridView1.Item(1, e.RowIndex).Value = PriceList(i).service Then
                    DataGridView1.Item(2, e.RowIndex).Value = PriceList(i).price
                End If
            End If
        Next
    End Sub
End Class
Public Class AnimalServicePrice
    Public breed As String = ""
    Public service As String = ""
    Public price As String = ""
End Class

Public Class Form1
    Dim ServiceList As New List(Of String)
    Dim PriceList As New List(Of AnimalServicePrice)
    Dim Breeds As New List(Of String)
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim source() As String = IO.File.ReadAllLines(Application.StartupPath & "\tst.csv", System.Text.Encoding.Default)
        Dim services() As String = Split(source(0), ",")
        For i = 1 To UBound(services)
            ServiceList.Add(services(i))
            DataGridViewComboAdd(0, 1, services(i)) '<-- заменили добавление данных в ячейки на процедуру
        Next
        For i = 1 To UBound(source)
            Dim line() As String = Split(source(i), ",")
            DataGridViewComboAdd(0, 0, line(0)) '<-- заменили добавление данных в ячейки на процедуру
            Breeds.Add(line(0)) '<---добавление породы в лист для дальнейшего использования
            For j = 1 To UBound(line)
                PriceList.Add(New AnimalServicePrice With {.breed = line(0), .service = ServiceList(j - 1), .price = line(j)})
            Next
        Next
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim combCol As New DataGridViewComboBoxColumn
        With combCol
            .Width = 150
            .HeaderText = "Порода"
        End With
        Dim combCol1 As New DataGridViewComboBoxColumn
        With combCol1
            .Width = 100
            .HeaderText = "Услуга"
        End With
        Dim manytext As New DataGridViewTextBoxColumn
        With manytext
            .Width = 70
            .HeaderText = "Цена"
        End With
        DataGridView1.Columns.AddRange(New DataGridViewColumn() {combCol, combCol1, manytext})
    End Sub
    Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        For i = 0 To PriceList.Count - 1
            If DataGridView1.Item(0, e.RowIndex).Value = PriceList(i).breed Then
                If DataGridView1.Item(1, e.RowIndex).Value = PriceList(i).service Then
                    DataGridView1.Item(2, e.RowIndex).Value = PriceList(i).price
                End If
            End If
        Next
    End Sub
    Private Sub DataGridView1_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
        For i = 0 To Breeds.Count - 1
            DataGridViewComboAdd(e.RowIndex, 0, Breeds(i))
        Next
        For i = 0 To ServiceList.Count - 1
            DataGridViewComboAdd(e.RowIndex, 1, ServiceList(i))
        Next
    End Sub
    Sub DataGridViewComboAdd(ByVal row As Integer, ByVal col As Integer, ByVal data As String)
        Dim CBCell As New DataGridViewComboBoxCell '
        CBCell = DataGridView1.Rows(row).Cells(col)
        CBCell.Items.Add(data)
    End Sub
End Class
Public Class AnimalServicePrice
    Public breed As String = ""
    Public service As String = ""
    Public price As String = ""
End Class

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim Writer As TextWriter = New StreamWriter("C:\Users\админ\Desktop\Новая папка\tst.txt")
        For i As Integer = 0 To DataGridView1.Rows.Count - 2 Step +1
            For j As Integer = 0 To DataGridView1.Columns.Count - 1 Step +1
                Writer.Write(vbTab & DataGridView1.Rows(i).Cells(j).Value.ToString() & vbTab & ",")
            Next
            Writer.WriteLine("")
                    Next
        Writer.Close()
 
    End Sub

Public Class Form1
    Dim ServiceList As New List(Of String)
    Dim PriceList As New List(Of AnimalServicePrice)
    Dim Breeds As New List(Of String)
    Dim BlockAddData As Boolean = False
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim source() As String = IO.File.ReadAllLines(Application.StartupPath & "\tst.csv", System.Text.Encoding.Default)
        Dim services() As String = Split(source(0), ",")
        For i = 1 To UBound(services)
            ServiceList.Add(services(i))
           DataGridViewComboAdd(DataGridView1.Rows.Count - 1, 1, services(i)) '<-- заменили добавление данных в ячейки на процедуру
        Next
        For i = 1 To UBound(source)
            Dim line() As String = Split(source(i), ",")
            DataGridViewComboAdd(DataGridView1.Rows.Count - 1, 0, line(0)) '<-- заменили добавление данных в ячейки на процедуру
            Breeds.Add(line(0)) '<---добавление породы в лист для дальнейшего использования
            For j = 1 To UBound(line)
                PriceList.Add(New AnimalServicePrice With {.breed = line(0), .service = ServiceList(j - 1), .price = line(j)})
            Next
        Next
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim combCol As New DataGridViewComboBoxColumn
        With combCol
            .Width = 150
            .HeaderText = "Порода"
        End With
        Dim combCol1 As New DataGridViewComboBoxColumn
        With combCol1
            .Width = 100
            .HeaderText = "Услуга"
        End With
        Dim manytext As New DataGridViewTextBoxColumn
        With manytext
            .Width = 70
            .HeaderText = "Цена"
        End With
        DataGridView1.Columns.AddRange(New DataGridViewColumn() {combCol, combCol1, manytext})
    End Sub
    Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        For i = 0 To PriceList.Count - 1
            If DataGridView1.Item(0, e.RowIndex).Value = PriceList(i).breed Then
                If DataGridView1.Item(1, e.RowIndex).Value = PriceList(i).service Then
                    DataGridView1.Item(2, e.RowIndex).Value = PriceList(i).price
                End If
            End If
        Next
    End Sub
    Private Sub DataGridView1_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
        If BlockAddData = False Then
            For i = 0 To Breeds.Count - 1
                DataGridViewComboAdd(e.RowIndex, 0, Breeds(i))
            Next
            For i = 0 To ServiceList.Count - 1
                DataGridViewComboAdd(e.RowIndex, 1, ServiceList(i))
            Next
        End If
    End Sub
    Sub DataGridViewComboAdd(ByVal row As Integer, ByVal col As Integer, ByVal data As String)
        Dim CBCell As New DataGridViewComboBoxCell '
        CBCell = DataGridView1.Rows(row).Cells(col)
        CBCell.Items.Add(data)
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'Сохранение
        Dim SaveFile As String = Application.StartupPath & "\dgv.dat"
        Dim result As String = ""
        Dim dlm As String = Chr(5)
        For row As Integer = 0 To DataGridView1.RowCount - 2
            For col As Integer = 0 To DataGridView1.ColumnCount - 1
                Dim CellType As Type = DataGridView1.Columns(col).CellType
                If CellType.ToString.EndsWith("DataGridViewComboBoxCell") Then
                    result &= dlm & "CMB" & GetComboCellItems(row, col) & dlm
                ElseIf CellType.ToString.EndsWith("DataGridViewTextBoxCell") Then
                    result &= dlm & "TXT" & Chr(7) & DataGridView1.Rows(row).Cells(col).Value & dlm
                End If
            Next
            result &= vbNewLine
        Next
        IO.File.WriteAllText(SaveFile, result, System.Text.Encoding.Default)
    End Sub
    Function GetComboCellItems(ByVal row As Integer, ByVal col As Integer) As String
        'Функция формирует из списков combobox строку типа {выбранный индекс*item1,item2,item3}
        Dim CBCell As New DataGridViewComboBoxCell '
        CBCell = DataGridView1.Rows(row).Cells(col)
        Dim index As Integer = CBCell.Items.IndexOf(DataGridView1.Item(col, row).Value)
        Dim result As String = "{" & index & Chr(7)
        For i = 0 To CBCell.Items.Count - 1
            If i = CBCell.Items.Count - 1 Then
                result &= CBCell.Items.Item(i).ToString & "}"
            Else
                result &= CBCell.Items.Item(i).ToString & ","
            End If
        Next
        Return result
    End Function
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        'Загрузка данных из файла
        DataGridView1.AllowUserToAddRows = False
        DataGridView1.Rows.Clear()
        DataGridView1.Refresh()
        BlockAddData = True
        Dim source() As String = IO.File.ReadAllLines(Application.StartupPath & "\dgv.dat", System.Text.Encoding.Default)
        Dim dlm As String = Chr(5)
        Dim Rows As Integer = 0
        For i = 0 To UBound(source)
            Dim CurrentColumn As Integer = 0
            Dim line() As String = Split(source(i), dlm)
            DataGridView1.Rows.Add()
            For j = 0 To UBound(line)
                If line(j) <> "" Then
                    If line(j).StartsWith("CMB") Then
                        Dim inc As String = Split(Split(line(j), "{")(1), "}")(0)
                        Dim result() As String = Split(inc, Chr(7))
                        Dim index As Integer = CInt(result(0))
                        Dim mass() As String = Split(result(1), ",")
                        For l = 0 To UBound(mass)
                            DataGridViewComboAdd(DataGridView1.Rows.Count - 1, CurrentColumn, mass(l))
                        Next
                        DataGridView1.Item(CurrentColumn, DataGridView1.Rows.Count - 1).Value = TryCast(DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(CurrentColumn), DataGridViewComboBoxCell).Items(index)
                    ElseIf line(j).StartsWith("TXT") Then
                        Dim res As String = Split(line(j), "TXT" & Chr(7))(1)
                        DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(CurrentColumn).Value = res
                    End If
                    CurrentColumn += 1
                End If
            Next
        Next
        BlockAddData = False
        DataGridView1.AllowUserToAddRows = True
    End Sub
End Class
Public Class AnimalServicePrice
    Public breed As String = ""
    Public service As String = ""
    Public price As String = ""
End Class

    Dim CBCell As New DataGridViewComboBoxCell '
        CBCell = DataGridView1.Rows(0).Cells(0)
        CBCell.Value = ""
        CBCell.Items.Clear()

  Dim CBCell As New DataGridViewComboBoxCell '
        CBCell = DataGridView1.Rows(e.RowIndex).Cells(3)
        CBCell.Value = ""
        CBCell.Items.Clear()

DataGridView1.CurrentRow.Index

e.RowIndex