Kod:
Dim stAppName As String
stAppName = "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE"
Call Shell(stAppName, 1)
Dim stAppName As String
stAppName = "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE"
Call Shell(stAppName, 1)