When executing the following code for the first time I get the error -2147217887 (80040e21).

Code:
rsBaseline("USGCalcedHours") = rsBaseline("USGCalcedHours") + _
(((nDuration * rsWeight) / 100) * rsBaseline("USGResourcePct")) / 100

rsBaseline.Update


I can "F8" past this error in the VB Environment and the rest of the program runs fine. The data type is numeric and the above code returns a 0 but it will not update. I return 0's in other parts of the code and it updates.

The database is Access97 and I'm using VB6.

Any ideas on what would cause this only for the first time a try to commit an update?

Thanks