Hi, Somebody could help me???

I´ve this code

Private Sub CommandButton1_Click()
Dim BaanObj As Object
On Error GoTo CannotCreateBaan
'run Baan Application
Set BaanObj = CreateObject("Baan.Application")
BaanObj.Timeout = 10
MsgBox ("OK")
Exit Sub

CannotCreateBaan:
MsgBox ("Can´t connect")

End Sub

In my computer doesn´t work but in the computer of another partners WORKS!!!!!!

2 computer works OK, but in others it does not work

i need help.

I would say check the client setup. It sounds like two PC's have baan.application set on the automation tab. So check your ".bwc" and make sure on your automation tab you have one that says baan.application. I can not remember where this resides in the registry - but it could also exist from an older version of the client.

Hi Carlos,

I think that your "Baan.Application" refers to the .bwc file, which is marked as "default" in BECS directory.

If there ist no such entry, you'll get an error during Create.

You can define an entry als default by using "File - Set as Default" in BECS.