主题：连接外部数据源报错窗口怎么替换掉?

如图,外网服务器IP地址改变后造成无法连接服务器,在

BeforeConnectOuterDataSource

事件中输入代码

Dim ipFile As String = e.ProjectPath & "ip.txt"

If e.Name = "数据源" Then
        If Filesys.FileExists(ipFile) Then   '判断文件存在
            Dim ip As String = FileSys.ReadAllText(ipFile) '获取文件内容
            e.ConnectionString = e.ConnectionString.Replace("120.0.0.10",ip)
            If TryConnectHost(ip) Then
                If Network.Ping(ip,1000) = False  Then '如果第一个IP无法接通

                   MessageBox.Show("连接服务器失败!",MessageBoxButtons.OK,MessageBoxIcon.Information)
                   e.HideSplashForm = True
                endif

           Else

                MessageBox.Show("连接服务器失败!",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.HideSplashForm = True
           endif

        endif

endif

请教老师,怎么去掉图中的连接提示,用代码中的提示替换?

此主题相关图片如下：连接提示.jpg

1.字符串Provider=SQLOLEDB.1;Password=***********;Persist Security Info=True;User ID=*******;Initial Catalog=*******;Data Source=120.0.0.10

2.IP.TXT内容为"110.80.121.67

3.msgbox(e.ConnectionString),这个字符串是正确的,网络通的情况下正常连接服务器,用TryConnectHost跟Network.Ping判断网络也正常提示,但是服务器要是防火墙没开启或者IP地址发生变化,或者花生壳IP地址错乱,这三种现象出现就会弹出图中的提示

是啊,域名IP跟客户端IP不相符,付费的也会出现这个问题

有点蓝老师有解决服务器连接不上提示问题的方案没,望老师指教下,谢谢