打开“数据库连接属性”对话框

利用DataLinks对象可以打开“数据库连接属性”的对话框，方便自动生成数据库连接字符串。

DataLinks类声明在Microsoft OLE DB Service Component 1.0 Type Library里面。要创建DataLinks对象，可以先引用此类库，使用 New DataLinks ，或者不引用，直接使用 CreateObject("DataLinks")。

代码如下：

'用户昵称: 留下些什么
'个人简介: 一个会做软件的货代
'CSDN网址：https://blog.csdn.net/zezese
'电子邮箱：31319180@qq.com

Option Explicit

Private Sub Command1_Click()

    Dim objDataLinks As Object
    Set objDataLinks = CreateObject("DataLinks")
    objDataLinks.hWnd = Me.hWnd
    
    Dim obj As Object
    Set obj = objDataLinks.PromptNew '连接成功返回一个ADO的Connection 对象
    
    Debug.Print TypeName(obj)
    
    If Not obj Is Nothing Then
        Dim strConn As String
        strConn = obj.ConnectionString
        MsgBox strConn
    End If
    
    Set objDataLinks = Nothing
    
End Sub