主题：[分享] 通用平台───持续更新(20140928进程识别)......

这里面的代码

_Connection = e.Name
If FileSys.FileExists(e.ProjectPath & "门诊收费系统(ACCESS).mdb") Then
    e.C & e.ProjectPath & "门诊收费系统(ACCESS).mdb;Persist Security Info=False"
ElseIf FileSys.FileExists("\\Lenovo-128\共享\zlhis-ref\office2007\PRO11\FILES\OWC10\门诊收费系统(ACCESS).mdb") Then
    e.C
End If

按住Ctrl键进去

保留第一句就行了，其他可有可无。