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中的空格应该去掉，论坛禁止发这个字符，我只能加个空格。

这个好。

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

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

呵呵，学习了。

这也说明动网也太容易被骗了，不严谨。

当然可以，你可以将生成的连接字符串保存为一个文本文件，在BeforeConnectOuterDataSource调用
也可以保存在某个表中，在打开项目后根据表中内容动态生成数据源和加载表。
更可以用SaveConfigValue和GetConfigValue方法来保存和读取信息

不建议连接地址密码，放在txt文件中调用，这样很容易被人知道搞破坏。

另外我想请教一个问题，比如服务器的地址就两个，一个内网的ip，另一个外网(花生壳的域名地址），客户在登陆时先使用内网的ip，设置一个时间，内网的 IP登陆不上时，自动使用外网(花生壳的域名地址），都登陆不上时，提示无法登陆，这些代码都直接写在狐表中。这个在BeforeConnectOuterDataSource中如何设置。