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 ''退出外壳