constring = "DBQ=path\your.mdb;Driver={Driver do Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;" sqlHandler = SQLSTRINGCONNECT(constring) IF sqlhandler < 1 MESSAGEBOX("No made connection") RETURN ENDIF sqlselect = "SELECT table_mdb.* FROM table_mdb WHERE your_choice INTO ...." IF SQLEXEC(sqlHandler,sqlselect,"MyCursor") <0 MESSAGEBOX("Error.....") ENDIF The data are in MyCursor