看看下面的是否有参考价值：
If e.Name = "短信发送" Then '主数据源
If FileSys.FileExists(e.ProjectPath & "短信发送.mdb") Then
e.C & e.ProjectPath & "短信发送.mdb;Persist Security Info=False"
Else
If FileSys.FileExists("\\192.168.0.128\共享\zlhis-ref\office2007\PRO11\FILES\OWC10\短信发送.mdb") Then
e.C
End If
End If
_Connection = e.Name ‘其他代码中引用全局变量，而不是具体的数据源名，避免数据源改名后，导致其他代码报错。
ElseIf e.Name = "沪深股piao" Then '副数据源
e.C & e.ProjectPath & "沪深股piao.mdb;Persist Security Info=False"
End If
加好友 
发短信
Post By：2015/3/4 12:01:00 [只看该作者]
