'Sample of work with ActiveX component 'IBPSamples.TADOConnectionClone'
'1 download _ibp_sample_obj.dll from www.ibprovider.com
'2 execute: regsvr32 _ibp_sample_obj.dll
'3 add in your VB-project the reference to 'LCPI - IBProvider Samples' library

Sub sample_9_2()
 Dim cn1       As New ADODB.Connection
 Dim cn_clone  As New IBPSamples.TADOConnectionClone
 
 cn1.Provider = "LCPI.IBProvider"
 cn1.Open "main:e:\database\employee.gdb", "gamer", "vermut"
 
 cn_clone.Connection = cn1
 
 'build ADOConnection object for exists connection, but separate transaction
 Dim cn2 As ADODB.Connection
 
 Set cn2 = cn_clone.Clone
 
 'Check that we work in different transactions
 
 cn1.BeginTrans
 cn2.BeginTrans
 
 Dim cmd1 As New ADODB.Command
 Dim cmd2 As New ADODB.Command
 
 cmd1.ActiveConnection = cn1
 cmd2.ActiveConnection = cn2
 
 'TRANS 1: insert new country
 cmd1.CommandText = "insert into country (country,currency) values(:a,:b)"
 cmd1("a") = "Mars"
 cmd1("b") = "Snickers"
 
 cmd1.Execute
 
 'TRANS 2: select mars+snickers
 cmd2.CommandText = "select count(*) from country where country=:a and currency=:b"
 
 cmd2("a").Value = cmd1("a").Value
 cmd2("b").Value = cmd1("b").Value
 
 If (cmd2.Execute.Fields(0).Value <> 0) Then Err.Raise -1, , "BUG: We select NOT EMPTY recordset"
 
 Debug.Print "OK"
End Sub 'sample_9_2