Database Visual Basic datagrid在产品过期时更改行颜色

我有一个连接到ms access的datagrid。我有一个名为“过期日期”的栏。我正在使datagrid的行在产品过期时变为红色。我在使用此代码时遇到问题

 Private Sub BoticaDataGridView_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles BoticaDataGridView.DataBindingComplete
    For i = 0 To BoticaDataGridView.Rows.Count - 1
        Dim expDate As Date = BoticaDataGridView.Rows(i).Cells(5).Value
        Dim now = Date.Now
        If expDate > now Then
            BoticaDataGridView.Rows(i).DefaultCellStyle.BackColor = Color.White
        Else
            BoticaDataGridView.Rows(i).DefaultCellStyle.BackColor = Color.Red
        End If
    Next
End Sub

它表示“从“整数”类型到“日期”类型的转换无效。”请帮助我。

值

BoticaDataGridView.Rows(i).Cells(5).Value

---

不是循环中至少一行和单元格5的日期值。

您确定第5列有日期值吗？@DarkKnight是。在access中，我将第5列（过期日期）的数据类型声明为Date/TIME。我只有这条语句，请查看结果

Dim result=BoticaDataGridView.Rows（I）.Cells（5）.Value

谢谢！终于成功了在vb6中不可能使用DNO