主题：仍然是远程数据源的问题，感觉要疯了!

If e.name = "连接名称" Then
    e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & e.User.ExtendedValues("数据库") & ".mdb;Persist Security Info=False"
End if

这里直接换成新数据源的完整连接字符串，肯定可以的，天天用的东西。