[Resolvido] FormatDateTime

Boa tarde

Tenho uma tabela com uma lista de horários, das 00:00 às 23:40, com intervalos de 20 minutos (00:20, 00:40, 01:00, 01:20...)

Alguém pode me dizer onde está o erro aqui?

Do While FormatDateTime(rec("Horas"),0) > FormatDateTime(("18:00:00"),0) and FormatDateTime(rec("Horas"),0) <= FormatDateTime(("23:40:00"),0)
response.write rec.Fields.Item("Horas").Value &"<br>"
rec.MoveNext
loop

Ele lista corretamente até o último, depois dele aparece o erro '80020009'.

Se eu tiro o símbolo de igual do <= FormatDateTime(("23:40:00"),0) funciona.

Se eu troco o FormatDateTime(("23:40:00"),0) por FormatDateTime(("23:20:00"),0) também funciona.