主题：添加或减去的值产生无法表示的 DateTime。？？怎么解决？？

此主题相关图片如下：qq图片20150526120304.png

老师们这种问题怎么解决？
'判断提醒状态
Dim sts() As String ={"项目管理表","项目主线","主线任务"}
For Each st As String In sts
    For Each dr As DataRow In DataTables(st).DataRows
        If dr("计划完工日期").AddDays(-6)> Date.Today() Or  dr.IsNull("实际完工日期") = False Then
            dr("任务提醒") = "正常"
        ElseIf dr("计划完工日期") < Date.Today() And dr.IsNull("计划完工日期") = False 
            dr("任务提醒") = "超期"
        ElseIf dr("计划完工日期").AddDays(-6)<=Date.Today() And dr("计划完工日期") >= Date.Today()
            dr("任务提醒") = "即将到期"
        End If
    Next
Next