beforeOpenProject事件
If Connections.TryConnect("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data\Northwind.mdb;Persist Security Info=False") = False e.Cancel = trueEnd If