为什么总是Object context does not exist？

Question

一个dll中如下代码，总是Object context does not exist，请大家帮忙！Option ExplicitImplements ObjectControl
Private objContext As ObjectContextPrivate Sub ObjectControl_Activate()
   Set objContext = GetObjectContext()
End SubPrivate Sub ObjectControl_Deactivate()
   Set objContext = Nothing
End Sub
Private Function ObjectControl_CanBePooled() As Boolean
   ObjectControl_CanBePooled = False
End Function
    
    Public Function fn(Pathname As String) As String
        On Error GoTo ErrorCode
        'Dim objContext As ObjectContext
        Dim objRequest As Request        If objContext Is Nothing Then //这里
           SaveFile = "Object context does not exist"
           Exit Function
        End If        'Set objContext = GetObjectContext()
        Set objRequest = objContext("Request")        
        objContext.SetComplete
        fn= "OK!"
        Exit Function
ErrorCode:
SaveFile = Err.Description
objContext.SetAbort
    End Function

Answer 1

我想知道你的运行环境？？？
是否组件注册？是否引用类型库？？com+ type library???

Answer 2

Object context does not exist是“对象上下文”不存在。好象得把它的所有事件过程都列出来，虽然你不写任何代码。