Код с условием по датам с запуском запроса

If Timevalue(Now)>= #08:00:00# and Timevalue(Now)<= #20:00:00# Then 
   Docmd.OpenQuery "Один запрос"
Else
   Docmd.OpenQuery "Другой запрос"
EndIf

'Dim db As dao.Database, engine As Object, path, path1
    Dim app As Object
    path = "\\RU-TRF4490X21\Base\OUTBOUND\PROCESS\Pick-Done.accdb"
    Set app = CreateObject("Access.Application")
    
    app.OpenCurrentDatabase path
    app.DoCmd.DeleteObject acTable, "Pickfile"
    app.DoCmd.TransferText acImportDelim, "Pickfile - спецификация импорта", "Pickfile", _
        "C:\Users\runovnetpc01\Desktop\pickfile.txt", False, ""
    app.Quit
    'Средставми DAO выполнить запросы
    Set engine = CreateObject("dao.dbengine.120")
    Set db = engine.OpenDatabase(path)
 
 
    db.Execute "AddTablePick"
    db.Execute "upgrade 1"
    db.Execute "upgrade"
    db.Execute "AddTablePick2"
    db.Execute "upgrade 2"
    db.Execute "AddPeoplTab"