标题：还是外部数据源连接的问题!!!!谢谢

使用了以下事件：

BeforeConnectOuterDataSource

If e.name = "连接" Then
    e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "1.mdb;Persist Security Info=False"
End if

但拷贝到其他微机上就找不到数据库了！！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目设计.rar

其它电脑是否已安装2000/2003的ACC?如是2007,应该是这样:

If e.name = "连接" Then
    e.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & e.ProjectPath & "1.mdb;Persist Security Info=False"
End if

代码中的名称不对,你应该设置为你实际的数据源名称:


If e.name = "连接" Then
... 
End if

我的外部数据源是有密码的，这种如何设置？谢谢

If e.name = "数据连接" Then
    e.C & e.ProjectPath & "数据库.mdb;Persist Security Info=False;Jet OLEDB:Database Password=TZX_GWY_JT_8888"
End if

这样应该对吧？

参看帮助文件中的
创建外部数据源  

3、链接到Access 2000/2003

第三个图

If e.name = "数据连接" Then     e.C & e.ProjectPath & "数据库.mdb;Persist Security Info=False;Jet OLEDB:Database Password=TZX_GWY_JT_8888" End if

找到原因了，是我的外部数据源有密码，BeforeConnectOuterDataSource事件中也要指定密码，否则是打不开的！！！Database Password=TZX_GWY_JT_8888

建议楼主还是多看看帮助,你问的问题大多在帮助中都能找到的