主题：一个数据源对应两个连接

If e.Name = "SQSJY" Then

    If Network.Ping("192.168.2.155,8056",1000) = False  Then '如果第一个IP无法接通

        e.ConnectionString = e.ConnectionString.Replace("192.168.2.155,8056", "外网IP地址,8056") 

        MessageBox.show("切换了哦，新的链接字符串" & e.ConnectionString)

    else

 MessageBox.show(“局域网正常，没有切换”" )

    End If

else

    MessageBox.show("名字错误，正确的：" & e.name)

End If