Visual Basic - Problema con comparacion if

Hola, tengo un bucle while y dentro un if que compara dos variables tipo date que contienen la hora...
cuando hago correr el programa lo ruteo me doy cuenta que lo que pasa es que las 2 primeras veces funciona bien compara y si son iguales las marca... pero a la 3º vez compara son las 2 igual pero no entra ???? se pasa al else y no se por que...

Alguien puede ayudarme... por favor... este es el cod.

Private Sub conthorasmas()
Dim horas As Date
Dim div As Date
Dim intervalo As Date
Dim conexion As ADODB.Connection
Dim hrs As ADODB.Recordset
Set conexion = New ADODB.Connection
Set hrs = New ADODB.Recordset
hrs.LockType = adLockBatchOptimistic

conexion.Open ("DSN=conexionsistema"), "eap3", "eap3"

div = "00:30:00"

intervalo = txtinicio.Text
hrs.Open ("select * from epractica3.horas"), conexion

While Not intervalo > CDate(txttermino.Text) And Not hrs.EOF
If hrs!hora = intervalo Then
cont = hrs!cont + 1
hrs!cont = cont
hrs.UpdateBatch
intervalo = intervalo + div
Else
hrs.MoveNext
End If
Wend

hrs.Close
conexion.Close
End Sub

Siempre posteo y nadie contesta.. pk sera... alguien por ahi...