VB调用Webservice出错

[tangxinzitxz]

Dim h As MSXML2.ServerXMLHTTP40
Dim strWebserviceURL As String
Dim x As MSXML2.DOMDocument40
Dim rs As New ADODB.Recordset
Set x = New MSXML2.DOMDocument40
Set h = New MSXML2.ServerXMLHTTP40
strWebserviceURL = "http://localhost:27651/WebService1.asmx/GetPerson"
h.Open "post ", strWebserviceURL, False
' h.setRequestHeader "Content-Type", "text/xml;charset=utf-8"
h.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
x.Load h.responseXML
rs.Open x （这一步报错）
这是Webservice的显示结果
请指教。

[ruanwei1987]

mark