Use object in main Function within a sub function

[Bullsandbears123]

I have an object that I define and set in the main function. Then I try to reference the object within a sub function and it acts like I never defined the object. Is there a way to do this?

example

Function mymain(abc as string)

Dim objDatabase As Object
Dim objContact As Object
Set objDatabase = CreateObject("ACTOLE.DATABASE&quot
objDatabase.Open dbName
Set objContact = objDatabase.CONTACT

objDatabase.Open "dbName"

mysub(abc)

objDatabase.close

set objdatabase= nothing
set objcontact=nothing


end function


function mysub(myvar as string)

objContact.lookup myvariable
'some other stuff
end function

 

[vbajock]

Place
Dim objDatabase As Object
Dim objContact As Object

at the top of the code module, not inside the function.

 

[Bullsandbears123]

Good idea.
Thanks, I solved the problem using Byref. Less memory needed.

I used byref to point to the object

function mysub(byref objcontact as object, myvar as string)

objContact.lookup myvariable
'some other stuff
end function

It works great!