Larry

Try this

Create the 1st Com with a Private Datasession

DEFINE CLASS test AS Session OLEPUBLIC
Datasession = 2

Function test
Create Cursor 'cCursor' (test I)
o = CreateObject('test1.test')
? o.test()
EndFunc
EndDefine

Build MtDll as Test From Test



Create the 2nd Com with a Default Datasession

DEFINE CLASS test AS Session OLEPUBLIC
Datasession = 1

Function test
Return Used('cTable')
EndFunc
EndDefine

Build MtDll as Test1 From Test1



o = CreateObject('test.test')
? o.Test()

Barry