'引用 Microsoft OLE DB Service Component 1.0 Type Libary
Private Sub Command1_Click()
Dim x As New MSDASC.DataLinks
Dim c As New ADODB.Connection
x.PromptEdit c
Debug.Print c.ConnectionString
c.Open
End Sub