HOW TO:打开“数据链接属性”对话框并返回连接字符串

Author:水如烟
项目要求：
Option Strict Off
并引用
Microsoft OLE DB Service Component 1.0 Type Library

     Private   Sub Button1_Click() Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim DataLink As New MSDASC.DataLinks
        Dim o As Object
        o = DataLink.PromptNew
        MsgBox(o.ConnectionString)
    End Sub