[lmikle]

Also:
См ADODB unit.
Функция PromptDataSource

Код:

var sConn : WideString; 
begin 
     sConn := PromptDataSource(Form1.Handle, ''); 
end;