参考“wangjian6931”同学的帖子：《1秒内快速判断网络状态》

写了判断是否成功连上外部数据源的代码如下：

If e.Name = "QCM" Then
    Dim myConnTest As New ConnTest.ConnNetTest
    Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Y:\\07 XXXX.mdb;Persist Security Info=False"
    If myConnTest.ConnNetTestByConnStr(strConn,2000)=True Then
        e.ConnectionString = strconn
    Else

        MessageBox.Show("局域网连接失败! "）

        Return

    End If

End If

如果局域网断开，判断很快，比原来等半天好很多。但是“Return”不能退出登录，系统继续出一堆错误，然后停止在背景窗口...

请问，哪个代码可以中断系统启动？上述代码如何改，谢谢。

 beforeOpenProject事件

Dim myConnTest As New ConnTest.ConnNetTest
Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Y:\\07 XXXX.mdb;Persist Security Info=False"
If myConnTest.ConnNetTestByConnStr(strConn,2000)=False Then
    MessageBox.Show("局域网连接失败! ")
    e.Cancel = True
End If

BeforeConnectOuterDataSource事件里没这个e参数，我试试把这段代码改到beforeOpenProject事件，看看会怎样

或者

If e.Name = "QCM" Then
    Dim myConnTest As New ConnTest.ConnNetTest
    Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Y:\\07 XXXX.mdb;Persist Security Info=False"
    If myConnTest.ConnNetTestByConnStr(strConn,2000)=True Then
        e.ConnectionString = strconn
    Else

        MessageBox.Show("局域网连接失败! "）

        system.diagnostics.process.GetProcessesByName("foxtable")(0).kill

    End If

End If