URGENT: help what am i doing wrong! subtraction

[pnutz]

Hey there,

Everytime equation comes to zero my program runs into an infinate loop.. Anyone knows why... i'm actually subtracting one date from the other using date diff....

my codes are as such

DateHold = Rs.Fields("TimeStamp")
 
Rs.MoveNext
 
Do While Not Rs.EOF
 
    DateCompare = Rs.Fields("TimeStamp")
    Debug.Print DateCompare
    Debug.Print DateHold
    Subtract = DateDiff("s", DateHold, DateCompare)
    Debug.Print Subtract
    Rs!AmountTime = Subtract
    DateHold = DateCompare
    DateValidate = Rs.Fields("AmountTime")
    
    For i = 1 To 2000
    DoEvents
    Next i
    
    Debug.Print DateValidate
    
        If (DateValidate <= -1) Then
                 
            DeleteDateValidate (DateValidate)
                 
        End If
        
   Rs.MoveNext
 
Loop
 
Rs.Close
 
 
Thanks!