This is all you need

[vba]

Sub RunAccessMacro()
Dim appAccess As Object

Set appAccess = CreateObject("Access.Application")

With appAccess
Application.DisplayAlerts = False
.Opencurrentdatabase glob_sdbPath
.DoCmd.OpenModule "Module1"
.Run "Update_data"
'.Quit
End With
Set appAccess = Nothing
End Sub
[/vba]