Dim OO4OSession as Object 
Set OO4OSession = CreateObject("OracleInProcServer.XOraSession")或Dim OO4OSession as OraSession 
Set OO4OSession = New OraSessionClass 或Dim OO4OSession as New OraSessionClass