i keep getting this error msg -runtime error 2147483638- I know what it means but...

i keep getting this error msg -runtime error 2147483638-
I found out that it -runtime error 2147483638- means "The data necessary to complete this operation is not yet available." so I though that the xdoc.readystate != 4, yes I'm trying to:

Set nodes = xdoc.documentElement.selectNodes("//TITLES")

For intNode = 0 To nodes.length - 1
MsgBox "title= " & nodes(intNode).nodeValue
Next

But I either get the above runtime error or "variable or object not set"... or what ever it is.

And oh even when the readystate IS = 4 I still get the runtime error.


Private Sub Form_Load()
Dim rf As New Msxml2.XMLHTTP40
Set xd = New Msxml2.DOMDocument40
Dim i As Integer
Dim intNode As Integer
Dim nodes As IXMLDOMNodeList

xd.async = False

rf.open "GET", "http://mysite.asp" _
, True

rf.send
Set xd = rf.responseXML
MsgBox "the state= " & xd.ReadyState

If xd.parseError.errorCode = 0 Then
Else
MsgBox xd.parseError.reason & vbCrLf & _
"Line: " & xd.parseError.Line & vbCrLf & _
"XML: " & xd.parseError.srcText
End If

Set nodes = xd.documentElement.selectNodes("//TITLES")

For intNode = 0 To nodes.length - 1
MsgBox "title= " & nodes(intNode).nodeValue
Next

xd.save "c:/temp.xml"
Set nodes = Nothing
Me.Visible = False
End Sub