Combobox в ячейке DataGridView

Sub rfrsh()
        sql = "select Адрес, Водитель from Таблица1 where Дата = '" & DateTimePicker1.Value.Date & "'"
        command = New OleDbCommand(sql, con)
        Dim dataSt As New DataSet
        Dim adapter As New OleDbDataAdapter(command)
        adapter.Fill(dataSt, "aa")
        DataGridView1.DataSource = dataSt
        DataGridView1.DataMember = "aa"
    End Sub

 Dim column_index As Integer = 1
        Dim list As New List(Of String) From {"1", "2", "3"} 'набор данных
        For i = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Item(column_index, i).Value = "" Then 'при условии, что в ячейке находится пустая строка
                DataGridView1.Item(column_index, i) = New DataGridViewComboBoxCell With {.DataSource = list}
            End If
 
        Next

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        sql = "update таблица1 set Водитель = '" & DataGridView1.CurrentRow.Cells(6).Value.ToString & "' where Код = '" & DataGridView1.CurrentRow.Cells(0).Value & "'"
        command = New OleDbCommand(sql, con)
        command.ExecuteNonQuery()
End Sub

where Код = " & DataGridView1.CurrentRow.Cells(0).Value & "