主题：在代码中调用数据源设置窗口

Dim cn As New ADODB.Connection
Dim DataLink As New MSDASC.DataLinks
cn.Connection String = "Provider=Microsoft.Jet.OLEDB.4.0;" '可以替换为自己的链接字符串
If DataLink.PromptEdit(CObj(cn)) Then
    MessageBox.show(cn.ConnectionString)
End If

提示：代码中Connection String中的空格应该去掉，论坛禁止发这个字符，我只能加个空格。