\'以下代码保证这个项目复制到任何目录都能正常链接该外部数据源
If e.name = "返利合同" Then
e.C & e.ProjectPath & "返利合同.mdb;Persist Security Info=False"
ElseIf e.name = "返利收缴明细表" Then
e.C & e.ProjectPath & "返利收缴明细表.mdb;Persist Security Info=False"
ElseIf e.name = "海典基础资料" Then
e.C & e.ProjectPath & "海典基础资料.mdb;Persist Security Info=False"
ElseIf e.name = "批发及退货报表1" Then
e.C & e.ProjectPath & "批发及退货报表1.mdb;Persist Security Info=False"
ElseIf e.name = "入库结构报表1" Then
e.C & e.ProjectPath & "入库结构报表1.mdb;Persist Security Info=False"
ElseIf e.name = "新标目录" Then
e.C & e.ProjectPath & "新标目录.mdb;Persist Security Info=False"
End If