紧急请教：用vb编写组件下载图片到本地然后插入到word的奇怪问题！！！

Question

用vb编写组件下载图片到本地然后插入到word，开发环境win2000，在win2000、xp、winme和部分win98下运行正常，但在大部分win98下出现actives组件不能创建对象，后来我在win98上安装了mdac_typ2.6，这个错误消失了，但打印到word的图片只显示一部分（图片比较大，占1行以上，但只显示一行，显示不完整），
下载图片到本地的代码运用了ado和xml组件，代码如下：
Private Sub Command1_Click()
Dim imgurl
Dim aryFileName
imgurl = "http://.../abc.jpg"
aryFileName = Split(imgurl, "/")
MsgBox SaveImg(aryFileName(UBound(aryFileName)), GetWebData(imgurl))End Sub
Function GetWebData(ByVal strUrl)
Dim curlpath
Dim Retrieval
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", strUrl, False, "", ""
.send
GetWebData = .responseBody
End With
Set Retrieval = Nothing
End FunctionFunction SaveImg(FileName, Data) As String
Dim ads
Set ads = CreateObject("Adodb.Stream")
With ads
.Type = 1
.Open
.Write Data
.SaveToFile "c:\" + FileName, 2
.Cancel
.Close
End With
Picture1.Picture = LoadPicture("c:\" + FileName)
SaveImg = "c:\" + FileName
Set ads = Nothing
End Function有没有其他的下载图片到本地的方法啊！