主题：保证这个项目复制到任何目录都能正常链接该外部数据源问题

不需要我看，帮助有详细讲述，CaseStudy下也有示例“动态加载数据(外部数据源).Table”。

如果不行，通常是名称错误，自己在代码中用MessageBox检查，这种问题很好调试。

实在搞不定，就做个简单的例子传上来，设置好代码，我看看你的问题在哪。

肯定错了，不信的话，你做个例子传上来。

第一段代码不可能通过，e.name不可能同时等于这三个值，如此设置，根本就达不到动态数据源的目的，你能通过，是因为通过菜单设置的数据源继续有效。

第一段能通过，第二段不能通过，是因为第二段代码起了作用，说明你设置连接字符串的代码有问题。

搞不定就做例子，不要瞎折腾。

If怎么用都不知道了吗：

If e.Name = "系统数据"  Then

     e.ConnectionString =

     "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "系统数据.mdb;Persist Security Info=False"

ElseIf e.Name = "常用数据" Then

      e.ConnectionString =

      "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "常用数据.mdb;Persist Security Info=False"

Elseif e.Name = "临时数据" Then
     e.ConnectionString =

End If

还可以用Select Case，这属于编程最基础的部分，必须掌握，最好回头看看帮助的编程基础部分。

三个数据源不是一次链接的，而是逐个链接，每链接一个数据源，都会触发一次这个事件，而e.Name返回触发此事件的数据源的名称。