modulo access

Boa tarde não estou conseguindo rodar o codigo abaixo:

Const IntervaloSegundos = 5 * 60 ' 5 minutos de intervalo
Sub Iniciar()
Alarme = Now + TimeSerial(0, 0, IntervaloSegundos)
Application.OnTime EarliestTime:=Alarme, procedure:="Macro_Atualizar_Tramite_web", schedule:=True
End Sub
Function Macro_Atualizar_Tramite_web()
On Error GoTo Macro_Atualizar_Tramite_web_Err

DoCmd.SetWarnings False
DoCmd.OpenQuery "CRIAR_TABELA_TRAMITACAO_CONTRATACAO", acViewNormal, acEdit
DoCmd.OpenQuery "CRIAR_TABELA_TRAMITACAO_CONSUMO", acViewNormal, acEdit
Beep
MsgBox "Dados Atualizados!", vbExclamation, "Carga"

Macro_Atualizar_Tramite_web_Exit:
Exit Function

Macro_Atualizar_Tramite_web_Err:
MsgBox Error$
Resume Macro_Atualizar_Tramite_web_Exit
Call Iniciar
End Function

Sub Parar()
On Error Resume Next
Application.OnTime EarliestTime:=Alarme, procedure:="Macro_Atualizar_Tramite_web", schedule:=False
End Sub

Obrigado