Dim cn As Connection= Connections("pk")Connections.Add
'If Network.Ping("221.1.206.126",1000) = False Then '如果第一个IP无法接通
cn.ConnectionString= cn. ConnectionString.Replace("221.1.205.126", "192.168.1.160")'End IfMessageBox.Show(cn.ConnectionString)