hi all,
i need help to insert thisform.text1.value and thisform.text2.value at first and second records excel sheet via code as

SELECT sno,fexerno,empno,disc1,solveerror from trans1;
         where  fexerno=thisform.text2.value ;
         ORDER by sno;
          into cursor crsMyCursor readwrite
*--------------------------
**first record(line1)=thisform.text1.value
**second record(line2)=thisform.text2.value
**select statment begin from line 3
*-------------------------------------

gcDelimName = ALIAS( ) + '.xls'
gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls')
IF EMPTY(gcDelimFile)  
   CANCEL
ENDIF
COPY TO (gcDelimFile) XLS   

thanks