VB代码中com+组件安装问题

'函数名称：AddComponent
'作用：添加组件到com+对应应用中
'参数：sFolder COM+目录,sSourcePath源文件夹路径，sTargetPath目标文件夹路径，sFileName组件名
Public Function AddComponent(sComFolder As String, ByVal sTargetPath As String, sFileName As String) As Boolean

Dim oo As Object

On Error GoTo Errd

For Each oo In oCatcol

    If oo.Name = sComFolder Then

        oCatalog.InstallComponent sComFolder, sTargetPath & sFileName, "", "" '在这里实现安装组件到一个应用
        AddComponent = True
        Exit Function

    End If
Next

Errd:

End Function
为啥这句
oCatalog.InstallComponent sComFolder, sTargetPath & sFileName, "", ""
会报“对象’InstallComponent‘的方法‘IComAdminCatalog2’失败“呢？
sTargetPath & sFileName是要注册的com+组件的路径和名称，如c:\test.dll

com组建路径对不对。

看下权限。或者你的com+ dll有问题。