LOCAL lcMyFile, lnConnHandle, lnResult, lcSQLCommand, lnGetData, lcNewName LOCAL ARRAY laWhatErr(1) lcMyFile = GetFile() lnConnHandle=SQLSTRINGCONNECT('DRIVER=MICROSOFT ACCESS DRIVER (*.MDB);DBQ=' + lcMyFile) lnResult = SQLTABLES(lnConnHandle, 'TABLE') CREATE DATABASE mynew SELECT SQLResult lcSQL = 'select * from '+ALLTRIM(SQLResult.table_name) SQLEXEC(lnConnHandle,lcSQL,'myCursor') SQLDISCONNECT(lnConnHandle) Select myCursor brow