[تنبيه للعنوان] السماح بوضع check على ستة أسطر فى الداتا جريد

 السلام عليكم

ممكن مساعدة فى الداتا جريد

انا بطلع بيانات على داتا جريد وبعمل سيليكت على 6 سجلات فقط وعايز تطلع رسالة وانا بعمل سيليكت تقولى ما ينفعش تعملى سيليكت على 6  سجلات لان الحد الاقصى هو 5 سجلات ودى انا عاملتها خلاص ولكن عايزة يتعملى الغاء على اخر واحدة تلقئيا

وده كود وانا بكتبها على داخل داتا جريد

 Dim total As Decimal = 0
            Try
                For Each row As DataGridViewRow In DataGridView1.Rows
                    If Convert.ToBoolean(row.Cells(0).Value) Then
                        'MsgBox(row.Cells(6).Value)
                        total += Convert.ToDecimal(row.Cells(6).Value)

                    End If

                Next
                TextBox1.Text = total.ToString
                If TextBox1.Text >= TextBox2.Text Then
                    MsgBox("عفوا لقد تجاوزت العدد للحد الاقصى        ")






                End If

وده كود الل بعم الغاء استدعاء للكل

 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        For Each r As DataGridViewRow In DataGridView1.Rows
            r.Cells(0).Value = CheckBox1.Checked
        Next r
    End Sub