Между не работает в VBA, попытайтесь это вместо
Если час, то (теперь ()) >= 1 и час (теперь ()) <� 9="" Then="">DoCmd.OpenQuery «qryUpdate1»
Час ElseIf (теперь ()) >= 13 и час (теперь ()) <� 21="" Then="">DoCmd.OpenQuery «qryUpdate2»
Закончитесь если