Permission denied problem Help!!

[sanon]

I have object A and B which are runing on the MTS server(NT4).
Here is my client code:

dim objA as A.clsA
dim objB as B.clsB

set objA = createobject("A.clsA")
set objB = createobject("B.clsB")

'call function in the objA to do something
objA.func1

'call function in the objB to do something
objB.func2

When I run the client program, it blows up the message "Permission denied." However, if I run it without calling a function in the objA first, everything is working as it should be. Morever, I'm pretty sure that there is nothing to do about the security issue. Any ideas?? Please give you an opinion what's the possible causes.

[TheBao]

set objA = createobject("A.clsA")
set objB = createobject("B.clsB")

The above lines will create instance of your objects. This may give a misleading since you don't need to have a permission in order to create an instance. The problem, is that if you don't have permission then you can create instance and then you can not do anything with that instance.

I think your problem is the same. So try to create a user on the MTS Server machine (the same user name and password as the one you on run the client machine). In your package, make it runs for Interactive user.

Regards,
TheBao

[sanon]

I'm sure that the user is not an issue because if I run either objA or objB, they work just as it should be. Once, however, when I put it together as I have shown, the error message just pop up. Any other ideas?

[sanon]

Today, I tried to narrow down the problem what's really going on with my code and found out something interesting as follow:

In the clsB there is a function called AddNew.

public sub AddNew(byval objG as G.clsG)
dim str as string

str = objG.someproperty

end sub

On the client site, when it calls this function which is located on MTS server, the error will be occured here. Once, I took the line which consist of objG out, the program just got through it. Any ideas what's going on around here? Thanks for all opinion and helps.