ok allora devi solo cambiare la condizione
select * from tabella where OrarioEntrata >08.00 and OrarioUscita <16.00
in questo modo tiri fuori i recordset che ti interessano.
Il ritardo massimo non c'entra niente lascia perdere.
codice:
'apri il recordset, effettui la query
sSQL="select * from tabella where OrarioEntrata >08.00 and OrarioUscita <16.00"
rs.open sSQL,conn,3,3
TotminutiEntrata=0
TotminutiUscita=0
'inizia il ciclo
do while not rs.eof
OrarioEntrata =rs.fields("OrarioEntrata")
OrarioUscita =rs.fields("OrarioUscita")
minutiEntrata=DateDiff("n","08.00",OrarioEntrata)
minutiUscita=DateDiff("n","16.00","OrarioUscita ")
TotminutiEntrata=TotminutiEntrata+minutiEntrata
TotminutiUscita=TotminutiUscita+minutiUscita
loop
rs.close
nelle variabili TotminutiEntrata e TotminutiUscita troverai i minuti di ritardo in ingresso e uscita della merce.