funcion timediff para calcular rango de horas

[carolina]

BD acces2000 y asp

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

parece que tengo algo malo en la funcion