lcImportFromDir = "C:\TEST_MDB\"
lcExportToDir = "C:\TEST_DBF\"

lcOpenMDB = (SYS(2000,(lcImportFromDir + ("*.mdb"))))
DO WHILE ! EMPTY(lcOpenMDB )
   lcExportTableName = LEFTC(lcOpenMDB,(AT(".",lcOpenMDB)-1))
   lnConnHandle = SQLSTRINGCONNECT('DSN=MS Access Database;DBQ=' + lcImportFromDir + lcOpenMDB + '; DefaultDir=' + lcImportFromDir + ';DriverId=25;FIL=MS Access; MaxBufferSize=2048; PageTimeout=5; UID=admin;')
   SQLTABLES(lnConnHandle, ['TABLE'], 'ThisMDB')
   SELECT ThisMDB
   SCAN
     lcSQL = 'SELECT * FROM "' + ALLTRIM(table_name) + '"'
     lcCursor = ALLTRIM(table_name)
     lcTableName = LEFTC(lcOpenMDB,(AT(".",lcOpenMDB)-1)) + '^' + lcCursor
     SQLEXEC(lnConnHandle,lcSQL,lcCursor)
     SELECT (lcCursor)
     COPY TO (lcExportToDir + lcTableName)
     USE IN (lcCursor)
   ENDSCAN
   USE IN ThisMDB
   SQLDISCONNECT(lnConnHandle)
   lcOpenMDB = (SYS(2000,(lcImportFromDir + ("*.mdb")),1))
ENDDO

1) lnConnection = SQLCONNECT("DBQ="+lcMDBFILE+";DefaultDir="+JUSTPATH(lcMDBFile)+";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;")
2) ?SQLEXEC(lnConnection,"CREATE TABLE some_example (int1 INT)")
3) ?SQLEXEC(lnConnection,"INSERT INTO some_example (int1) VALUES (100)")

store SQLSTRINGCONNECT(;
'DBQ='+fullpath('accessfile.mdb')+';'+;
'DefaultDir=c:\;'+;
'Driver={Microsoft Access Driver (*.mdb)}');
TO gnConnHandle

?SQLEXEC(gnConnHandle, "SELECT * from Access_table_name","tempcurs")
=sqldisc(0)

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" ;
      + "Data Source=C:\Temp\MiAccess.mdb;" ;
      + "Jet OLEDB:Database Password=xxxx;"

Conn = CreateObject("ADODB.Connection")
With Conn
         .CursorLocation = 3 && adUseClient
         .ConnectionString = strConn
         .Open
EndWith

sSql = "Select * From myTable"

RS = Conn.Execute(sSql)
? RS.Fields(0).Value

CLEAR

store SQLSTRINGCONNECT(;
'DBQ='+'c:\Symphony\Symphony_BE.mdb'+';'+;
'DefaultDir=c:\Symphony;'+;
'Driver={Microsoft Access Driver (*.mdb)}');
TO gnConnHandle

SQLEXEC(gnConnHandle, "SELECT * from tab_Postcodes","tempcurs")

SELECT tempcurs
BROWSE