USE Toto IN 0 FOR I = 1 TO THISFORM.Test8.Value * INSERT INTO Toto (<Field list>) VALUES (<Fields from Newamar66>) INSERT INTO Toto (char1,char2,char3) VALUES (char1,char2,char3 from Newamar66) INSERT INTO Toto (all fields) VALUES (allfields from Newamar66)thanks.