d7中怎么点某按钮打开ODBC对话框设置或选择数据源

d7中如何点某按钮打开ODBC对话框设置或选择数据源
如题！

[解决办法]
PromptDataSource(Application.Handle, vConStr)；
这个把数据源打开，自己配了返回值
[解决办法]
procedure From1.Button1Click(Sender: TObject);
begin
edt1.Text := POleStr(PromptDataSource(self.Handle, edt1.Text));
end;

(uses ADODB)