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

这个好。

好象等于前面多加个空格就不会被禁止了吧，试试

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