Ivã eu desconheço. Talvez algum colega saiba mas (não sei se vc já faz) o q eu faço é assim q começa a transação eu seto um flag q eu crio... exemplo:
dim cnn as ADODB.connection
dim flag_Transacao_Ativa as boolean
.
.
.
cnn.BeginTrans
flag_Transacao_Ativa = true
cnn.RollbackTrans
flag_Transacao_Ativa = false
cnn.CommitTrans
flag_Transacao_Ativa = false
algo assim...
espero q te ajude de alguma forma
t+