oA2k3 = GetObject(, "Access.Application")and retrieve table names . . . which I can then extract data via ODBC.
. . OPEN DATABASE 'testdata' STORE SQLCONNECT('db0') TO nConnHandle FOR n = 0 TO oA2k3.CurrentData.AllTables.Count - 1 && array begins at 0? WITH oA2k3.CurrentData.AllTables.Item(n) cSQL = 'SELECT TOP 1 * FROM ' + CHR(34) + .Name + CHR(34) nRetVal = SQLEXEC(nConnHandle, cSQL, 'results') ENDWITH ENDFORThat works so far.