在帮助里面有这么一段:

  示例五

   假定有两个IP地址(也可能是两个服务器)，分别是192.168.1.100和119.75.217.56，默认使用第一个IP地址，如果第一个IP地址无法接通，则自动切换到第二个IP地址。
   要实现这个功能很简单，首先在设置数据源的时候，使用第一个IP地址（192.168.1.100）设置，然后在BeforeConnectOuterDataSource事件中设置如下代码：

    If e.Name = "数据源名称" Then
       If Network.Ping("192.168.1.100",1000) = False  Then \'如果第一个IP无法接通
           e.ConnectionString = e.ConnectionString.Replace("192.168.1.100", "119.75.217.56")
       End If
    End If

  但是在网络不通的情况下 居然提示 网络不通 无法ping的提示 这个怎么回事?

   后来我改成这样:

   If e.Name = "服务器" Then
    Dim s As String = "Provider=SQLOLEDB.1;Password=shangqi09;Persist Security Info=True;User ID=shangqi09;Initial Catalog=shangqi09;Data Source=219.140.165.55"
    If Connections.TryConnect(s) = False Then
        MessageBox.Show("网络不通,执行另外一个连接")
        Dim ipFile As String = e.ProjectPath & "ip.txt"
        If Filesys.FileExists(ipFile) Then
            Dim ip As String = FileSys.ReadAllText(ipFile)
            e.ConnectionString =ip
        End If
    End If
End If

 这个IP.Txt 是新连接字符串

这样没有问题吧?