funcion timediff para calcular rango de horas

[carolina]

estoy tratando de calcular la diferencias entre horas en BD acces2000 y asp , una variable se encuentra en la BD(entrada) y la otra se ingresa por teclado en un cuadro de texto(hr), las dos en formato hh:mm la consulta es la sgte:

SQL = ""
SQL = SQL & " Select DateDiff(HH, entrada, '" & Request(hr) &" ') as atra, id From horario Where id = '" & Request("ids") &" ' "
Set Consulta = oConn.Execute(SQL)
Do While NOT Consulta.EOF
at = Consulta("atra")
Consulta.MoveNext
Loop

ahora lo estoy tratando de hacer asi, pero me dice:

Microsoft JET Database Engine (0x80040E10)
No se han especificado valores para algunos de los parámetros requeridos.
/a/b.asp, línea 37


ME HAN DICHO QUE IGUAL SE PUEDE EN UN JAVASCRIPT PERO TAMPOCO ME FUNCIONA:

Function DiffADate(hr,at)
Dif = DateDiff("ss", hr, at)
End Function

Estoy probando de la manera anterior pero me marca error
hr=cuadro de texto en donde se ingresa una HORA por teclado
at= HORA extraida de la Bd y guardada en un cuadro de texto con este nombre
(NINGUNO DE LOS DOS DATOS SE ENCUENTRA CON FECHA ES SOLO EL VALOER DE LA HORA EN HORAMATO hh:mm Y hh:mm:ss)


parece que tengo algo malo en la funcion