set defa to d:\bills\aar\ 
thisform.text1.Value='yourfile'

LOCAL lcTableName
lcTableName = thisform.text2.value
CREATE TABLE (lcTableName) (a C(50), b C(70),c C(50), d C(50),e C(70), f C(70),s C(70), l C(70),char9 c(70), char10 c(40),;
char11 C(10), char12 C(60),char13 C(50), char14 C(40),char15 C(10), char16 C(10),char17 C(10), char18 C(70),;
char19 C(10), char20;C(10),char21 C(10), char22 C(40),char23 C(10), char24 C(10),char25 C(10), char26 C(70),;
char27 C(10), char28 C(10) NOCPTRANS)
lcTableName = thisform.text1.value
APPEND FROM (lcTableName) TYPE XLS
*** USE (thisform.text2.value) exclusive ALIAS SomeAlias && Not necessary, this table is already selected
GO TOP
DELETE NEXT 6

>
>set defa to d:\bills\aar\ type xls && not correct
>thisform.text1.Value=d:\bills\aar\ type xls  && not correct
>
>LOCAL lcTableName
>lcTableName = thisform.text2.value
>CREATE TABLE &lcTableName (a C(50), b C(70),c C(50), d C(50),e C(70), f C(70),s C(70), l C(70),char9 c(70),;
> char10 c(40),char11 C(10), char12 C(60),char13 C(50), char14 C(40),char15 C(10), char16 C(10),char17 C(10),;
> char18 C(70),char19 C(10), char20 C(10),char21 C(10), char22 C(40),char23 C(10), char24 C(10),char25 C(10),;
> char26 C(70),char27 C(10), char28 C(10) NOCPTRANS)
>APPEND FROM (thisform.text1.value)TYPE XLS
>
>USE (thisform.text2.value) exclusive ALIAS SomeAlias
>
>GO TOP
>DELETE NEXT 6
>