con1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ GetCurrentDir+'\Pr\База данных1.mdb;Persist Security Info=False';