Kapatmak için

Set objShell = CreateObject("WScript.Shell")

Set objWmi = GetObject("winmgmts:")





strWmiq = "select * from Win32_Process where name='Msaccess.exe'"

Set objQResult = objWmi.Execquery(strWmiq)





For Each objProcess In objQResult

intRet = objProcess.Terminate(1)

Next 

Açmak için:

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "C:\Program Files\Microsoft Office\Office14\msaccess.exe"

Bunu denemedim ama bu şekilde çalışması lazım. Bu arada Access için sizde geçerli olan yolu yazarsınız. Ben 2010 için office14 yazdım ama sizdeki versiyon ya da kurulum yeri farklı olabilir.