Как внести изменение в поле для конкретной строки

Private Sub Supplier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.DataGridView1.DataSource = GetDt(SqlQuery)
    End Sub

Function GetDt(ByVal SqlQuery As String) As DataTable
        Dim dt As New DataTable
        Dim Con As New OleDb.OleDbConnection("Provider=Microsoft Office 12.0 Access Database Engine OLE DB Provider; Data Source=" _
        & My.Application.Info.DirectoryPath & "\Учебная.accdb") ' Переменная для подключения базы
        Dim SqlCom As OleDb.OleDbCommand ' Переменная OleDb-команды
        Dim DA As OleDb.OleDbDataAdapter ' Адаптер для заполнения таблицы после запроса
        SqlCom = New OleDb.OleDbCommand(SqlQuery, Con) ' Указываем строку запроса и привязываем к соединению
        Con.Open() ' Открываем соединение
        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(dt) ' Заполняем таблицу результатми
        Con.Close() ' Не понятно, будет ли в этом случае соединение закрываться?
        Return dt
    End Function

Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        SqlQuery = "UPDATE Suppliers SET [Status] = True"
        Me.DataGridView1.DataSource = GetDt(SqlQuery)
    End Sub

Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        sup = DataGridView1.CurrentRow.Cells(0).Value
        SqlQuery = "SELECT * FROM [Suppliers] WHERE IdSupplier = " & sup
        GetDt(SqlQuery)
        SqlQuery = "UPDATE Suppliers SET Status = True"
        GetDt(SqlQuery)
    End Sub

SqlQuery = "UPDATE Suppliers SET Status = True WHERE IdSupplier = " & sup

SqlQuery = "SELECT * FROM [Suppliers] WHERE IdSupplier = " & sup

sup = DataGridView1.CurrentRow.Cells(0).Value
        SqlQuery = "UPDATE Suppliers SET Status = True WHERE IdSupplier = " & sup
        GetDt(SqlQuery)

Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        sup = DataGridView1.CurrentRow.Cells(0).Value
        If DataGridView1.CurrentRow.Cells(2).Value = 0 Then
            SqlQuery = "UPDATE Suppliers SET Status = False WHERE IdSupplier = " & sup
        Else : SqlQuery = "UPDATE Suppliers SET Status = True WHERE IdSupplier = " & sup
        End If
        GetDt(SqlQuery)
    End Sub

DataGridView1.CurrentRow.Cells(me.IdSupplier.Index).Value

DataGridView1.CurrentRow.Cells("IdSupplier").Value

SqlQuery = "SELECT IdSupplier as [№ п\п],..FROM [Suppliers]"

sup = DataGridView1.CurrentRow.Cells("№ п\п").Value