Set BlockSize To 512 CREATE CURSOR cuVI ; ( MAIL_NO N(5,0) NOT NULL ; , DATE D NOT NULL ; , WHO C(6) NOT NULL ; , RESULT M NOT NULL ; , NEW L NOT NULL ) nLoops = 3 DIMENSION ar[nLoops] ar[1] = "Test record 1" ar[2] = "Specifies the directory that is initially displayed in the dialog box. " + ; "When cDirectory is not specified, the dialog box opens with the " + ; "Visual FoxPro default directory displayed" ar[3] = "Small set again. Not sure which will have erroneous data." FOR nL = 1 to nLoops INSERT INTO cuVI VALUES ; ( nL ; , date() ; , "Test" ; , ar[nL] ; , .F. ) ENDFOR SELECT cuVI COPY TO ("\ViTest.DBF") FOX2X * Open file to see results modify file \viTest.fptThanks,