设置加载数据源时先搜索同目录下
BeforeConnectOuterDataSource事件写代码:
If e.name = "database" Then '这是你外部数据源的名称
e.C & e.ProjectPath & "database.mdb;Persist Security Info=False"
End If