还是关于activex的问题 (50分)

如何象Tadoqury等ado控件一样一点connectionstring,唤出 连接字符串编辑器？
对于这个问题信息的补充：今天我在微软出版社的《ADO编程技术》中看到在VB中
只需引用Microsoft OLE DB Service Component 类型库，然后用如下代码：
Dim objDataLink as MSDASC.DataLinks
Dim strconn as string
set objdatalink=new Msdasc.datalinks
strconn=objDatalink.promptnew
msgbox strconn
就可以了，但是我不知道在Delphi中如何写，希[?]望高手不吝赐教。
我猜应该是象李维先生的《Delphi5.x ADO / MTS / COM+ 高级程序设计篇》中最初的使用
原生Ado例子一样先，createoleobject 然后在调用，但是不行。

补充信息：通过VB程序的启发，我现在已经知道可以从Project Import Type library中导入
Microsoft OLE DB Sevice library 然后Install，在控件页上上会出现Tdatalinks 等几个
控件。其中Tdatalinks.promptnew即可弹出连接字符串构造对话框。不过，和VB不同的是，vb中
MSDAC.promptnew是有返回值的，这个值即是连接字符串。而delphi中这个方法，返回值是
Idispatch，因此无法直接利用。另外，我发现在Delphi5的例程中，ADO目录那个ADOtest例程
就可以不仅弹出构造对话框，而且可以返回连接字符串，不过我看了半天程序，不知所以然，
还请各位高手指点迷津。

promptdatasource
VB那种烂东西，还是少用。

接受答案了.