小吳 VBQA 程式設計討論

I have used the following code to post a string to other web site. however, I have an error message "Method 'send' of object 'IXMLHTTPRequest' failed, would you give me a information for solve it.
Private Sub XMLHTTPProcess(rData As String)
Dim oXMLHTTP　　As New XMLHTTP30
Dim objSrvHTTP　As Object
oXMLHTTP.open "POST", "https://202.175.17.66/servlet/corpsms.jdsXMLClient", False
oXMLHTTP.send rData
rData = oXMLHTTP.responseText　　
　　If rData = Empty Then
　　　　MsgBox "Server no response"
　　Else
　　　　MsgBox rData
　　End If
End Sub