Como puedo hacer para crear un botón para cancelar la venta en un programa de stock hecho por visual basic 6

Estoy armando un programa de stock en visual basic 6, me salió bien para vender el producto, pero no puedo cancelar la venta y que quede nuevamente el stock que estaba, me cancela pero igual me quita la existencia.- Tengo dos tablas, en una esta la existencia y en la otra esta la cantidad.-

Este es el código:

A = MsgBox("¿Esta Seguro De Cancelar Esta Venta?", vbYesNo, "Cancelando")

If Val(a) = vbYes Then

List1.Clear
Label4 = ""

Command10.Visible = True

Command11.Visible = True

Command12.Visible = True

Command13.Visible = True

Command14.Visible = False

Command15.Visible = False

Command16.Visible = False

Command17.Visible = False

If Text5 > (0) Then

Adodc2.Recordset.MoveFirst

Adodc2.Recordset.MoveNext

While Not Adodc2.Recordset.EOF

B = Val(Text5)

If Val(B) > (0) Then

Adodc1.Recordset.MoveFirst

While Not (Adodc1.Recordset.EOF = True)

If Val(B) = Adodc1.Recordset(0) Then

Text11 = Val(Text10)

Text10 = Val(Text11) + Val(Text7)

Exit Sub

End If

Wend

End If

Adodc2.Recordset.MoveNext

If Adodc2.Recordset.EOF Then

Exit Sub

End If

Wend

End If

If Text5 > (0) Then

Adodc2.Recordset.MoveFirst

Adodc2.Recordset.MoveNext

While Not Adodc2.Recordset.EOF

Adodc2.Recordset.Delete

Adodc2.Recordset.MoveNext

If Adodc2.Recordset.EOF Then

Adodc2.Recordset.MoveFirst

Adodc2.Recordset.Update

Adodc1.Recordset.Update

Adodc1.Recordset.MoveFirst

Exit Sub

End If

Wend

End If

Si alguno tiene una mejor idea le agradecería compartir.