MSFlexGrid correct row updated

Hy All!
I have following code in my MSFlexGrid, which does not update the row in the correct cell, but always in the cell of first row.
In the MSFlexgrid I can type and change the value without any problem, but once saved the grid (and the recordset too) show me updated the value of the correct column, but whatever row has been changed in typing, the new value appears always in the first row (correct column, but wrong row).

This is in form load():
-----------------------

Dim rs As Recordset

With rs

.MoveLast
MSFlexGrid4.Rows = .RecordCount
MSFlexGrid4.Cols = 3
MSFlexGrid4.FixedCols = 0

.MoveFirst
Do
MSFlexGrid4.TextMatrix(.AbsolutePosition + 1, 1) = !Item
MSFlexGrid4.TextMatrix(.AbsolutePosition + 1, 2) = !charge
.MoveNext
Loop Until .EOF
End With

And this is the command to save the changes
------------------------------------------------------

If Not txtDataEntry.Visible Then Exit Sub
If txtDataEntry.Text <> MSFlexGrid4.TextMatrix(MSFlexGrid4.Row, _
MSFlexGrid4.col) Then
cmdSave.Enabled = True
End If

MSFlexGrid4.TextMatrix(MSFlexGrid4.Row, MSFlexGrid4.col) = _
txtDataEntry.Text
txtDataEntry.Visible = False

With rs.Recordset

.Edit
!charge = txtDataEntry.Text
!Item = txtDataEntry.Text
.Update

End With

Anyone can help me to rebuild this code and have the recordset updated in the correct row instead constantly in row(1) ?

Thanks in advance.

May be this helps....
Do U Have FixRow?
I assume that U have 1 FixedRow because U want the first record
to be at row 1:
MSFlexGrid4.TextMatrix(.AbsolutePosition + 1, 1) = !Item