提示什么错误，新建一个项目，直接连接这个web数据源有没有问题？
调试看看
If TryConnectHost("192.168.3.10") = False Then
msgbox(1)
If Network.Ping("192.168.3.10",1000) = False Then '如果第一个IP无法接通
msgbox(e.Name)
Select Case e.Name
Case "shujk"
Dim sb As New StringBuilder
sb.AppendLine("http://222.168.xxx.xxx:8000/DataServer.htm")
sb.AppendLine("-FormData-")
sb.AppendLine("UserName:xxxxxx")
sb.AppendLine("Password:xxxxxxxxxxx")
e.ConnectionString = sb.ToString()
msgbox(e.ConnectionString)
End If
End If
加好友 
发短信
Post By：2021/7/28 11:29:00 [只看该作者]
