[Access] Avviare macro da codice esterno

[[trodat]]

Ho trovato questo codice, ma non dà errori ma non esegue il modulo1, perchè?

Set accDB = CreateObject("Access.Application")
accDB.automationsecurity=1
accDB.OpenCurrentDatabase("D:\2011.mdb") 
accDB.DoCmd.OpenModule "Modulo1", "ESPORTA"
accDB.CloseCurrentDatabase
accDB.Quit
Set accDB = Nothing

Nel db access ho previsto nel Modulo1:

Sub ESPORTA()
    DoCmd.OutputTo acOutputTable, "Tabella", "xls", "D:\Tabella.xls"
    Application.Quit
End Sub