XMLhttp提交表单出错 求救

Question

我在VB 6.0中使用XMLHTTP向一个网页提交form，然后得到网页响应数据，但现在代码执行到‘‘XMLObject.send SendStr’’ 时候出错，我查了很多资料，基本都是这么使用XMLHTTP的，请问我的代码什么地方出错了么 ？  谢谢Dim SendStr As String
Dim XMLObject
Dim WebURL As String
Dim ReadFileText As String
WebURL = "http://www.baidu.com/s"
SendStr = "wd=sb"
Set XMLObject = CreateObject("Microsoft.XMLHTTP")
XMLObject.Open "POST", WebURL, False
XMLObject.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
XMLObject.setRequestHeader "content-length", Len(SendStr)
XMLObject.send SendStr
ReadFileText = StrConv(XMLObject.responseBody, vbUnicode)
Set XMLObject = Nothing