как через opendialog присвоить путь connectionstrin компонента AdoConnect

[xsaroo]

Проблема вот в чём
программа работает с бд при запуске программы он нажимает на кнопку и выбирает бд все окей работает но при перезапуске программы пользователю опять надо делать предыдущие пункты
так вот как сделать так чтобы при повторном запуске программы, бд была уже выбрана ,и пользователю каждый раз при начале работы не надо было лазить и выбирать путь к бд.(Т.е один раз запустил прогу указал путь к бд и при повторном запуске проги бд было уже выбрано)




procedure TForm1.Button4Click(Sender: TObject);
var
PathToDB:string;
begin
adoconnection1.Connected:=false;
ADOQuery1.Active:=false;
If OpenDialog1.Execute then begin
PathToDb:=Opendialog1.FileName;
end;
adoconnection1.ConnectionString:='P rovider=Microsoft.Jet.OLEDB.4.0;Dat a Source=' +PathToDb+';Persist Security Info=False';
ADOConnection1.LoginPrompt := False;
adoconnection1.Connected:=true;
ADOQuery1.Connection:=adoconnection 1;
ADOQuery1.Active:=true;

end;

[Serge_Bliznykov]

закрыто за кросспостинг