>set defa to e:\bills1\bills1 or ThisForm.Text1.Value = "e:\bills1\bills1\aar.xls" >thisform.text1.Value='aar' >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 > >>