紧急请教：动态链接库初始化例程失败和Activex 组件不能创建对象的问题！

在程序中运用了xml和ado技术如下：
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
请问它们需要安装什么支持组件才能在win98、win2k、winxp等各版本windows操作系统下正常运行，在win98下安装MDAC_typ.exe和msxml3_cn.exe后运行正常，在部分安装win2000 professional的机器上出现“Activex 组件不能创建对象”和“动态链接库初始化失败”（2个错误都是英文报出来的且分别出现在2台机器上），我给这2台机器安装MDAC_typ.exe（2.5和2.6版都试过）和msxml3_cn.exe后还是那种错误，请问那位朋友知道要安装什么东西。谢谢！