主题：解决远程数据库网络错误的最佳办法

第二步：  NetworkAddressChanged事件代码

Vars("网络状态") = TryConnectHost(www.jinyt.com) '数据库服务器地址

最好还要在AFTEROPENPROJECT项目事件写入这个代码，实验时发现上次Vars("网络状态")执行事件结果好像会保存着（比如是FALSE），假设这次IP地址没变化可以连接远程数据库，但在执行增加、删除记录什么，仍提示“对不起，当前网络或服务器不可用......"错误，在AFTEROPENPROJECT项目事件写入后，能正常打开项目，Vars("网络状态") = true，就不影响正常操作。