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