I discovered that the problem lies in the datediff() procedure, I thought I coded it correctly?
DateDiff(h, LrecDate, Now())
On Errror GoTo ErrorHandler
Dim LrecID As Variant
Dim LrecInOUT As Variant
Dim LrecDate As Variant
Dim Ldate As Variant
Dim rstEmployee As DAO.Recordset
Dim dbsNatCat...