[php3]

عندي برنامج ومستخدم به قاعدة بيانات اكسس
وبه تاريخ انتهاء فترة الاشتراك
يعني : قبل فترة الانتهاء بيوم واحد يظهر للسطر في الداتا جيرد فيو لون احمر
وهذا هو الكود المستخدم : اريد اعرف الخطأ في الكود

PHP كود :

Private Sub DataGridView1_CellFormatting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        For i As Integer = 0 To DataGridView1.Rows.Count - 1

            If DataGridView1.Rows(i).Cells(6).Value.ToString <> Nothing Then


                Dim day As Date = DataGridView1.Rows(i).Cells(6).Value.ToString

                DataGridView1.Rows(i).Cells(6).Value = Format(day, "MM/dd/yyyy")

                Dim a
                a = DateDiff("d", DataGridView1.Rows(i).Cells(6).Value, Date.Today)
                If a >= 1 Then

                    DataGridView1.Rows(i).Cells(0).Style.BackColor = Color.Red
                    DataGridView1.Rows(i).Cells(1).Style.BackColor = Color.Red
                End If
            Else

            End If
        Next
    End Sub