Datos no guardan cuando se corta la energía

Hola, necesito tu opinión o ayuda, mira tengo un formulario de ingreso de productos y en donde solo actualizo las cantidades en un campo stock de una tabla principal con el código que te detallo el cual esta en un botón. Mientras no se corte la luz funciona todo bien, pero por ejemplo si ya actualice algunos stock de productos a pesar que con el código ya supuestamente se grabaron los datos y si se corta la luz estos datos se pierden. Lo he comprobado apagando mi PC en forma intempestiva, ya he probado con otros formularios inclusive con otros que no los hice igual se pierden los datos.
select farmacia
saldoant=thisform.txtStock.value
saldo = thisform.txtStock.value + val(thisform.txtingreso.value)
Select ingreso
append blank
replace descrip with alltrim(thisform.txtdescrip.value)
replace ingreso with val(alltrim(thisform.txtingreso.value))
replace codigo with thisform.txtcodigo.value
replace unimed with thisform.txtunimed.value
replace fecha_ingr with date()
replace pventa2 with thisform.txtprecioventa.value
replace pventa3 with thisform.txtprecioventa2.value
replace stockant with saldoant
replace stock with saldo
replace respons with alltrim(thisform.lblnombre.caption)
Select farmacia
replace stock with saldo
replace fecha_ingr with date()
replace ingreso with val(alltrim(thisform.txtingreso.value))
replace totalprecio with stock * preciobase
ira=recno()
sum totalprecio to nTotalprecio
sum preciobase to nPreciobase
thisform.txtTotalprecio.value = nTotalprecio
thisform.txtpbase.value = nPreciobase
thisform.txtdescrip.value=' '
thisform.txtunimed.value=' '
thisform.txtstock.value=' '
thisform.txtingreso.value=' '
thisform.txtprecioventa.value=' '
thisform.txtprecioventa2.value=' '
thisform.txtlocaliza.value=' '
thisform.txtcodigo.value=' '
thisform.txtpreciobase.value=' '
*use
*use farmacia order nombre
*SET RELATION TO Farmacia.descrip INTO ingreso ADDITIVE
go ira
thisform.lstListado.setfocus
thisform.refresh()
Endif