类未注册的问题，大家帮帮忙

Question

将下面的文本粘贴到文本编辑器中，然后存为以.reg为扩展名的文件。双击后将信息添加到注册表中。然后用鼠标右键点击一个动态链接库或OCX控件，在弹出的环境菜单中你将会看到Register和Unregister的选项。运用这个方法的前提是你的计算机上必须有regsvr32.exe文件。
REGEDIT4
[HKEY_CLASSES_ROOT\.ocx]
@="ocxfile"
[HKEY_CLASSES_ROOT\ocxfile]
@=”OCX”
[HKEY_CLASSES_ROOT\ocxfile\shell\Register\command]
@="RegSvr32 \"%1\""
[HKEY_CLASSES_ROOT\ocxfile\shell\Unregister\command]
@="RegSvr32 /u \"%1\"" 
REGEDIT4
[HKEY_CLASSES_ROOT\.dll]
@="dllfile"
[HKEY_CLASSES_ROOT\dllfile]
@=”DLL”
[HKEY_CLASSES_ROOT\dllfile\shell\Register\command]
@="RegSvr32 \"%1\""
[HKEY_CLASSES_ROOT\dllfile\shell\Unregister\command]
@="RegSvr32 /u \"%1\""

Answer 1

Dim xX As String
Text4.Text = "yyy.dll"
xX = App.Path & "\" & Text4.Text
Shell "regsvr32.exe """ & xX & """", 3

Answer 2

泰山的这个办法恐怕不行
首先，我要运行的计算机不是一台，是一群
我不可能挨个给它装，再说就是我装上了也无法注册
因为DAO不知道在哪个动态库中

Answer 3

泰山的这个办法恐怕不行
首先，我要运行的计算机不是一台，是一群
我不可能挨个给它装，再说就是我装上了也无法注册
因为DAO不知道在哪个动态库中