Problema con Begin,Commit,RollBack

Hola a todos.

Resulta que tengo un programa en VB6 que se conecta a una base de datos SQL
Server.
El tema es que estoy manejando transacciones y resulta que hago un begin
transaction, realizo la insercion y luego dependiendo de ciertas situaciones
hago el commit o el rollback.
Pero los otros dias en medio de la transaccion se fue la luz de la maquina y
del servidor y supuse que la transaccion se habia perdido, pero para mi
sorpresa la insercion se habia completado, pero el programa no habia llegado
al commit.
Quisiera saber si hay alguna forma de controlar que si no se produce el
commit o el rollback la trasaccion no se concrete, o alguna otra idea para
con la misma.

Desde ya muchas gracias por la ayuda.
Saludos.