主题：今天几台电脑项目都打不开，显示错误

BeforeOpenProject，代码有问题，但我测试没有报你这种错。

Dim a As Date = Date.Today
Dim b As Date = #12/30/2014#
If Date.Today >= b Then
    e.Cancel = true
End If