BeforeConnectOuterDataSource 的代码不是这样写的,你要这样写
Dim s As String = "Provider=SQLOLEDB.1;Password=AA123456;Persist Security Info=True;User ID=sa;Initial Catalog=UFSystem;Data Source=WMERP"
If Connections.TryConnect(s) = False Then
MessageBox.Show("数据源无法连通!请检查数据库或者网络,再打开本程序")
Syscmd.Project.Exit()
Else
End If
再有就是,发布后的项目,只有开发者、管理员可以设置数据源,其它用户看不到数据源提示的。