主题：项目启动时，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