无法创建对象，错误429求助

是这样的，我需要调用dm.dll，类名为dm.dmsoft
然后我使用Set dm = CreateObject("dm.dmsoft")进行创建对象。
提示：
实时错误：429
Active 部件不能创建对象


百度到一些信息：
解决方法：
手工注册此文件：
点击“开始”→“运行”在弹出的输入框中键入以下命令：
regsvr32 "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll"
regsvr32 "C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll"
然后按回车键，注意必须加引号。
如果还提示：429错误，可以再行手工注册scrrun.dll。点击“开始”→“运行”在弹出的输入框中键入以下命令：
regsvr32 "C:\windows\system32\scrrun.dll",然后按回车键,即可。
如果上述"C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll和dao350.dll"文件不存在，请到这里下载：（网址就不放了）


于是我下载了dao350.dll、dao360.dll和scrrun.dll
用以下语句注册：（syspath是系统目录）
i = Shell("regsvr32.exe " & syspath & "\xxx.dll /s")
If i = 0 Then ‘0代表注册失败
Text1.Text = Text1.Text & vbCrLf & "注册失败：" & syspath & "\xxx.dll"
Else
Text1.Text = Text1.Text & vbCrLf & "注册成功：" & syspath & "\xxx.dll"
End If


结果如下：（全部注册成功）




但是加上Set dm = CreateObject("dm.dmsoft")后，又弹出

走投无路，只能求助贴吧大神们................