اضافه کردم حالا هیچ عملی انجام نمیده
لطف می کنید برای sql نمونه کار بدید گیج شدم این چند روز انقدر کد دیدم

        Try

            connection.Open()

            For i = 0 To Me.DataGridView1.RowCount - 1

                Dim rowID = Me.DataGridView1.Rows(i).Cells(0).Value



                If CBool(Me.DataGridView1.CurrentRow.Cells(7).Value) = True Then

                    sql = "UPDATE tblperson SET per_chek = 1 WHERE ID = '" & rowID & "' """

                    Dim cmd As New SqlCommand(sql, connection)

                    cmd.ExecuteNonQuery()



                Else

                    sql = "UPDATE tblperson SET per_chek = 0 WHERE ID = '" & rowID & "' """

                    Dim cmd As New SqlCommand(sql, connection)

                    cmd.ExecuteNonQuery()



                End If

            Next

            MsgBox("Updated")

            connection.Close()

        Catch

        End Try