Data.Recordset.Edit for Table ( .dbf)

[regis]

I try to change a value to table dbf but the result is not good.

This is my code

Sub...
Data1.Recordset.MoveFirst

Do While Data1.Recordset.EOF = False
Data1.Recordset.Edit
Data1.Recordset("Dhp_20").Value = 50 Data1.Recordset.Update

Data1.Recordset.MoveNext

Loop
End sub...

And after that all my value in DHP_20 fields is equal Zero I don't understand the process.

And my field "DHP_20" it's a numeric field

Thanks
Redg