Oracle Objects for OLE及在VB中的应用,怎样实现事物回滚？

'定义OLE对象变量
Dim OraSession As Object
Dim OraDatabase As Object
Dim OraDynaset As Object
'建立OraSession对象。
Set OraSession = CreateObject("OracleInProcServer.XOraSession")'建立与ORACLE数据库的连接
Set OraDatabase = OraSession.DbOpenDatabase("DBName", "UserName/Password", 0&)用以上对象建立与Oracle9i_server的连接，在vb6中执行以下sql语句组：
第一组：
"update table table_name1 set ... where ..."
"insert into table_name2 values (...)"
第二组：
"update table table_name1 set ...where ..."
"insert into table_name2 values (...)"
第三组：
"update table table_name1 set ...where ..."
"insert into table_name2 values (...)"
第四组：
"update table table_name1 set ...where ..."
"insert into table_name2 values (...)"
第五组：
"update table table_name1 set ...where ..."
"insert into table_name2 values (...)"最后要撤消第一组、第三组、第五组的操作，只提交第二组和第四组的操作，如何实现？望各位多多指教，谢谢！