ln=SQLCONNECT('dbtest') USE ? IN 0 ALIAS __table SELECT __table lnfields=AFIELDS(lafields) lcSql = 'create table ' + SUBSTR(justfname(DBF()),1,AT('.',justfname(DBF()))-1) + ' (' FOR i = 1 TO lnfields lcSql = lcSql + lafields(i,1) + ' '+IIF(lafields(i,2)='C','CHAR','')+'('+TRANSFORM(lafields(i,3))+'),' NEXT i lcSql = SUBSTR(lcSql,1,LEN(lcsql)-1) + ')' MESSAGEBOX(lcsql) SQLEXEC(ln,lcsql) ***Once the table is created... scan and do an insert