主题：退出系统语句不好用，用起来经常报错。

我在beforeconnectouterdatasource中使用以下代码读取连接字符串

Dim connFile As String = e.ProjectPath & "conn.txt"
If e.Name = "zhujiwu" Then
    If Filesys.FileExists(connfile) Then
        Dim ip As String = FileSys.ReadAllText(connFile)
        e.ConnectionString = ip.trim
    Else       
        messagebox.show("数据库连接配置文件不存在,请建立配置文件."  ,"提示"  )
        Syscmd.Project.Exit()  '如果没有配置文件就退出系统
    End If
End If

 Syscmd.Project.Exit()  执行后，没有立即退出，弹出一系列报错框。

狐表爸 想个办法完善下 Syscmd.Project.Exit()  吧 让执行该语句后，就什么也不错直接退出系统吧