>is there away to don this idea under at mytext
>

>getdir()
>thisform.text9.Value=GETFILE('xls')
>Import from (thisform.text9.Value) TYPE xl5
>&&APPEND(alter) 3 fields to my table = (thisform.text9.Value)
>
>&&1.as date field  (replace date with thisform.text2.value)&&for all record
>&&2.as cno, n(6) field  (replace cno with 0 ) && for all records
>&&3.as no, n(9)   field  (replace  ALL No WITH RECNO())
>

Could you rephrase the question? I really can't understand what you are trying to say?