set defa to e:\bills1\bills1\aar\ 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 6thanks.