If .Execute() > 0 Then
p = .FoundFiles(1) ''ACCESS主程序完整路径
Shell p & " " & CurrentProject.Path & "\123.mdb /wrkgrp " & CurrentProject.Path & "\system.mdw", 3 ''带参数启动程序
Else
MsgBox "C:\Program Files\Microsoft Office\ 下没找到MSACCESS的程序文件,系统无法运行."
End If
End With
docmd.quit ''退出外壳