vb调试时能正常运行，为什么编译成dll就运行不正常了呢？

下面是去掉outlook警告框的一个函数代码，引用了Outlook Security Manager,dll的时候，总提示类型不正确，搞不明白。忘指教！ 
   ''''去掉提示框
Public Function ClearSecurityProc(ByRef OutLookApp As Variant) As Boolean
 On Error GoTo errhandle
'    Set OutLookApp = objOA
    tmp.ConnectTo OutLookApp
    tmp.DisableOOMWarnings = True
    tmp.DisableCDOWarnings = True
    tmp.DisableSMAPIWarnings = True
    ClearSecurityProc = True
    Exit Function
errhandle:
    ClearSecurityProc = False
    MsgBox err.Description
End Function

补充：VB ,  控件