ADO Recordset Update failure

[JasonS]

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

[Vit]

Check AloowZeroLength property of the database field

[JasonS]

All of my text fields have AllowZeroLength = Yes. The other fields are numeric and the Required field equals No.

Any other suggestions?

[Aaron Young]

Did you get a Message to go with the Error Number? Are any of the Calculation Variables Null? What is rsWeight?

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]

[webman]

rsWeight looks funny to me too. Should it have been rsBaseline("Weight")?

------------------
<b>W</b>eb<b>M</b>an

[JasonS]

rsWeight is actually a numeric long.
I'm new to VB and I now know I didn't use the proper naming convention.