[true]

Спасибо большое

А можешь показать что нужно дописать или подправить?

procedure TForm1.N34Click(Sender: TObject);
var
s:string;
begin
if OpenDialog1.Execute then
begin
s:=OpenDialog1.FileName;
DataModule2.ADOTable1.ConnectionString(Provider=Mi crosoft.Jet.OLEDB.4.0;Data Source=+s+;Persist Security Info=False);
end;
end;