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 IfEnd If