Err No. 80040e19(Object or Data matching......)

From: Ethan Hunt (Hunt_at_discussions.microsoft.com)
Date: 12/18/04 

Date: Fri, 17 Dec 2004 20:05:01 -0800

Hi all,
I am using VB6 to download a jpg file from Windows 2003 Server for showing
the pic with IE control.
But. I receive the errormesage

80040e19
Object or data matching the name, range, or selection criteria was not found
within the scope of this operation
my coding is as below:
'--------------------------------------------------------------------
'//sPicPath =
http://197.100.100.8/PHIH/20041217/36A17827-4E0A-4A92-BB0E-7F42657A53D2.jpg
Public Function DownLoad(sPicPath As String) As Boolean
Dim Rs As New ADODB.Stream
    Rs.Type = 1 ' 1=adTypeBinary
    '''Choose Desire File to Download
    'Rs.Open ("URL=" & DesireFolder & "/Test.jpg")
   
    If Len(sPicPath) > 0 Then
        Rs.Open ("URL=" & sPicPath)
        Rs.SaveToFile "C:\Temp.jpg", 2 ' adSaveCreateOverWrite
        Rs.Close
        DownLoad = True
    Else
        DownLoad = False
    End If
    Set Rs = Nothing
End Function

Does anybody know how to resolve it ?