Run Time Error '-2147417851'(80010105);

[ShrikantBiradar3449]

Hi,

My framework is of "Functional Decomposition" Type and all the Functions are written in a Dll with VB.

I am trying to run below the code:

Code:

If Not CBool(CStr(JavaDialog("GTMLogin").Exist(0))) Then
             SystemUtil.Run "iexplore", Environment("App_URL")
       End If

The Public Property variable is defined for this:

Code:

Public Property Get JavaDialog()
    Set JavaDialog = mJavaDialog
End Property

After excecuting the last line "End Property" I am getting following error:
Run Time Error '-2147417851'(80010105);
Automation Error
the Server threw an exception


I am facing this problem when I am associating the OR at run time:

Code:

Dim qtpApp
Set qtpApp = CreateObject("QuickTest.Application")
Dim qtpRepositories
Set qtpRepositories = qtpApp.Test.Actions("Regression").ObjectRepositories

'Load Test.tsr
If qtpRepositories.Find(SourceFile) = -1 Then ' If the repository cannot be found in the collection
    qtpRepositories.Add SourceFile, 1 ' Add the repository to the collection
End If

And when I comment this code everything works fine.

I am frustrated ,plz help.