ADO.ConnectionString:='Provider=MSDASQL.1;' +
                        'Persist Security Info=False;' +
                        'Extended Properties="DBQ=' + ExtractFilePath(Application.ExeName) + 'Daten\Database.mdb;' +
                        'DefaultDir=' + ExtractFilePath(Application.ExeName) + ';' +
                        'Driver={Driver do Microsoft Access (*.mdb)};' +
                        'DriverId=25;' +
                        'FIL=MS Access;' +
                        'MaxBufferSize=2048;' +
                        'MaxScanRows=8;' +
                        'PageTimeout=5;' +
                        'SafeTransactions=0;' +
                        'Threads=3;' +
                        'UID=admin;' +
                        'UserCommitSync=no;";';