源   码:

'启动Access应用程序
Private Sub cmd_启动_Click()
    Dim AccOn As Variant
    '安装office的路径
    AccOn = Shell("E:\Program Files (x86)\Microsoft Office\" _
    & "Office14\MSACCESS.EXE", vbNormalFocus)
End Sub
'关闭当前的Access应用程序
Private Sub cmd_退出_Click()
    Application.Quit acQuitSaveAll
End Sub

附   件:

点击下载此示例学习

截   图: