访问Web服务时出现VB 6.0错误：2146697208

Question

在将xml发送到支付网关Web服务时出现错误：-2146697208。该应用程序是在VB6.0中开发的，操作系统是Microsoft Windows Server 2003。

该代码在Windows XP中也可以正常工作，并且我使用第三方工具在Windows Embedded Standard系统中测试Web服务（SOAP UI）验证了这一点，并且效果很好。该问题似乎与VB6.0和OS有关。请帮忙。

代码段：

 On Error GoTo 0
'Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")

 PaymentURL = "https://testpayments.globalone.me/merchant/xmlpayment"

 Dim http As Object

 Set http = CreateObject("MSXML2.XMLHTTP.6.0")

 http.Open "POST", PaymentURL, False

 http.setRequestHeader "Content-Type", "text/xml"

http.setRequestHeader "User-Agent", "Mozilla/5.0 (iPad; U; CPU OS 3_2_1 like Mac OS X; en-us) AppleWebKit/531.21.10 (KHTML, like Gecko) Mobile/7B405"

http.send (xmldata) (error is thrown here)

请帮助我。

谢谢