主题：BeforeConnectOuterDataSource SQL连接问题

            Forms("启动连接").Close()
            Forms("SQL提示").Open()
            Dim sqlts As  WinForm.Label = Forms("SQL提示").Controls("Label1")
            sqlts.text = Val5 & " 数据源无法连通!是否需要数据库连接设置?"& (vbcrlf)& ErrMsg '追加数据代码
            Return Nothing
        End If   

死在这里了