主题：请教计划管理问题

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

计划管理代码如下：

Static dt As Date
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalHours >= 24 Then
    DataTables("日期管理").load
    dt = Date.Today
    Dim dr As DataRow = DataTables("日期管理").Find("日期=#" & dt & "#")
    If dr Is Nothing Then
        Dr=DataTables("日期管理").AddNew
        Dr("日期")= dt
        DataTables("日期管理").Save()
    End If
End If
经常出现日期重复现象，请教如何改进代码？