主题：项目启动时，IP地址不接通时的代码提示，并退出项目。(已解决)

我在BeforeConnectOuterDataSource事件中设置如下代码，想实现当检测IP地址不通时，提示，并退出项目，可结果并没有按这个操作，还是继续往下打开窗口。请问代码要怎么修改？

'检测IP连通
If Network.Ping(ip,1000) = False  Then '如果无法接通
    e.HideSplashForm = True  '关闭启动封面
    Messagebox.Show("您的计算机与网络失联了,请检查后重新再试!","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Syscmd.Project.Exit(False)  ’退出项目
Else
    '连接数据源
    Dim sjy As String = FileSys.ReadAllText("C:\inetpub\wwwroot\mdb.txt")
    If e.name = "mdb" Then
       e.ConnectionString = sjy
    End If
End If
 
   

我把 system.diagnostics.process.GetProcessesByName("foxtable")(0).kill 代码替代了上段代码中的红字部分，但当IP地址是错的时候，会提示以下窗口：

此主题相关图片如下：qq图片20150614111130.png

把此窗口关闭后，又跳到了登录窗口。

还有，不写到BeforeOpenProject事件中，是因为要在项目启动时，而是通过文本内容动态改变连接数据源。