主题：如果数据表加密后的日期被人为改动，软件自动退出！

Dim d As Date '变量d用于存储转换结果
If Date.TryParse("1999/12/31", d) Then '如果转换成功
    Output.Show(d) '输出转换结果
Else
    Output.Show("无效日期格式") '给出错误提示
End If

http://www.foxtable.com/help/topics/0324.htm