This will work for you, as long as you have a reference set for
Microsoft Access:

Regards,
David Miller


Sub RunAccessMacro()
Dim appAcc As Access.Application

Set appAcc = CreateObject("G:\MACHINE DOWN AUDIT DB\QUAD 3 MDA
AUTO.mdb")

With appAcc
.Visible = True
.DoCmd.RunMacro "MARSHALL"
.Quit
End With

Set appAcc = Nothing
End Sub