Hello, the following worked for me:

Sub yadda()
Dim accApp As Object
Set accApp = GetObject(, "Access.Application")
AppActivate "Microsoft Access"
accApp.Run "foobar"
Set accApp = Nothing
End Sub

There's another example and more on the Run Method in the Access VBE help
file.

Regards,
Nate Oliver