主题：[求助]关于日期提醒代码问题！

此主题相关图片如下：111.jpg

新手帮助的例子：

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("库存表").Find("到期日期 <= #" & dt & "#")
If dr IsNot Nothing Then
    MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("库存表").Filter = "到期日期 <= #" & dt & "#"
    MainTable = Tables("库存表")
End If

代码启动项目后，会加载所有的行，时间已经过去的也会默认加载。该如何加上条件，启动项目后，只加载颜色变红的行呢，如下图！