主题：当数据源连接不上时如何强行退出系统

'---根据内外网连接选择不同的IP

Dim strConn As String

Dim myConnTest As New ConnTest.ConnNetTest

Dim net As String = FileSys.ReadAllText(netFile)

If net = "1" Then '外网直接用IP2连接

    db_IP = db_IP2

    ftp_Host = db_IP2

    e.ConnectionString = e.ConnectionString.Replace(db_IP1,db_IP)  '用外网IP替换sql实例路径中的内网IP

    strConn = e.ConnectionString

    If myConnTest.ConnNetTestByConnStr(strConn,2000) = True Then

    Else

        MessageBox.Show("网络不通或服务器拒绝访问,请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

        CanOpen = False  '禁止打开项目

    End If

end if

当故意断网测试时，用了上面那三种红色的方式都无法退出，还会显示一下"正在打开。。。"过近十秒才会退出，为什么，有什么办法立即退出呢

谢谢！