*... This.AddProperty('oConn', Newobject("ADODB.Connection")) With This.oConn .ConnectionString = tcConn .Mode = 16 .Open() Endwith This.AddProperty('Dataenvironment',Createobject('myDataEnvironment', This.oConn)) *...