Что нужно написать после Insert, чтобы добавленная запись сохранилась в таблице при выходе из программы?

LOCAL nCount
SELECT R
GO TOP IN R
INSERT INTO R (A1, A2, A3, A4, A5, A6, A7, A8) VALUES (Thisform.Text1.Value, Thisform.Text2.Value, Thisform.Text3.Value, Thisform.Text4.Value, Thisform.Text5.Value, Thisform.Text6.Value, Thisform.Text7.Value, Thisform.Text8.Value)
thisform.Grid1.refresh
GO TOP IN R
COUNT TO nCount FOR .T.
IF (nCount>=5)
SELECT R
sELECT R1
APPEND FROM R
select R2
append from R
thisform.grid3.Refresh
thisform.grid4.Refresh
SELECT R
IF !EMPTY("R")
DELETE ALL IN R
thisform.grid1.Refresh
endif
ELSE
SELECT R1
IF !EMPTY("R1")
DELETE ALL IN R1
thisform.grid4.Refresh
ENDIF
SELECT R2
IF !EMPTY("R2")
DELETE ALL IN R2
thisform.grid3.Refresh
endif
ENDIF