Dim acc As Access.Application = CreateObject("Access.Application")
' aktiviert User Login
acc.UserControl = True
 
' Öffnet die Datenbank
acc.OpenCurrentDatabase("D:\Test.mdb", False, "")
 
' Führt das Makro aus
acc.DoCmd.RunMacro("Testmakro")
 
' Beenden
acc.CloseCurrentDatabase()
acc.Quit(Access.AcQuitOption.acQuitSaveAll)
acc = Nothing