主题：根据有效日期做到期提醒怎么做？

有一个产品表，其中有产品的生产日期，有效日期，我想根据有效日期列，到当前时间为30天的日期，做提醒。该怎么做？

If e.col.Name = "到期日期" Then
    If e.Row.IsNull("到期日期") = False
        If e.Row("到期日期") < Date.Today.AddDays(10) Then
            e.Style = "到期"
        End If
    End If
End If

谢谢，明白了？