[vinni]

Код:

if dlgOpen1.Execute then 
begin
  DataModule1.ADOTable1.Tablename := dlgOpen1.Filename;
  DataModule1.ADOTable1.Open;
end;