s:=extractfilepath(application.ExeName);
dm1.ADO_access.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+s+'print.mdb;Persist Security Info=False';
dm1.ADO_access.Connected:=true;
dm1.ADO_access.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+s+'print.mdb;Persist Security Info=False';
dm1.ADO_access.Connected:=true;