Entre no trabaja en VBA, intentan esto en lugar de otro
Si hora (ahora ()) >= 1 y hora (ahora ()) <� 9="" Then="">DoCmd.OpenQuery “qryUpdate1”
Hora de ElseIf (ahora ()) >= 13 y hora (ahora ()) <� 21="" Then="">DoCmd.OpenQuery “qryUpdate2”
Terminar si