Dim sb As New StringBuilder
Dim Err As String
sb.AppendLine("http://127.0.0.1:112/DataServer.htm")
\'sb.AppendLine("-FormData-")
\'sb.AppendLine("UserName:张三")
\'sb.AppendLine("Password:888")
If Connections.TryConnect(sb.Tostring, Err) = False Then
MessageBox.Show(err,"提示",MessageBoxButtons.OK,MessageBoxIcon.Error) \'显示错误信息
Else
MessageBox.Show("数据源可以正常连通!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If