PROBLEMA BEGIN COMMIT

Tengo una duda (una de tantas) si tengo una serie de instrucciones dentro de un begin commit, las que voy ejecutando desde un programa en VB6, si el programa se cierra inesperadamente no dberia deshacerse las operaciones?. esto no me funcionó
por ejemplo tengo

cnn.Execute "BEGIN;"
cnn.Execute "SET CLIENT_ENCODING TO 'LATIN1';"
pop = "SELECT * from ""Recibidas"" order by ""Dpta"",""Sumario"",""TipoInfo"""
Set tuplas = cnn.Execute(pop)
If tuplas.EOF() = False Then
tuplas.MoveFirst
Do While Not tuplas.EOF()
cnn.Execute("INSERT INTO ""RecibidasDes"" VALUES ('" & tuplas!Dpta & "','" & tuplas!sumario & "','" & tuplas!TipoInfo & "','" & recuperararos(tuplas!info) & "');")

Y AQUI SE CIERRA EL PROGRAMA, SIN ANTES LLEGAR A LA INSTRUCCION
cnn.Execute "COMMIT;"

AL CONSULTAR LA TABLA EL REGISTRO EFECTIVAMENTE SE INSERTO, ¿COMO IMPEDIR ESTO? ¿COMO HACER UN ROOLBACK CUANDO ESTO OCURRE?

__________________________________________________
Preguntá. Respondé. Descubrí.
Todo lo que querías saber, y lo que ni imaginabas,
está en Yahoo! Respuestas (Beta).
¡Probalo ya!
http://www.yahoo.com.ar/respuestas