主题：[求助]BeforeConnectOuterDataSource事件错误

代码：If Network.Ping("192.168.0.15",1000) = False  Then '如果第一个IP无法接通

    MessageBox.Show("升级服务器出现问题,请联系")

    lsb = True '赋值临时表状态.true为不通过.

Else

    Dim s As String = "Provider=SQLOLEDB.1;Password=b7q3y5E;Persist Security Info=True;User ID=net666046;Initial Catalog=net666046;Data Source=192.168.0.15"

    Connections.Add("server",s)

End If

说明：会出现一个错误提示。