Error (-2147467259) Please help!

[Tonatiuh]

This segment of code gives me the follow error:
'fgrGaran' is FlexiGrid Control and 'rsFianza' is an ADO 2.1 recordset.



Cn.ConnectionString = "DSN=CapCont21;UID=;PWD=;OLE DB Services=-1;"
Cn.Open
Cn.CursorLocation = adUseClient

With fgrGaran
For X = 1 To rsFianza.RecordCount
rsFianza.AbsolutePosition = X
.Col = 0: rsFianza!concepto = .Text
.Col = 1: rsFianza!numfianz = .Text
.Col = 2: rsFianza!importe = Val(Format(.Text, "####.##"))
.Col = 3: rsFianza!afianzad = .Text
.Col = 4: If VBDateVal(.Text) Then rsFianza!ffianza = DateVBToFox(.Text)
.Col = 5: If VBDateVal(.Text) Then rsFianza!fini = DateVBToFox(.Text)
.Col = 6: If VBDateVal(.Text) Then rsFianza!ffin = DateVBToFox(.Text)
rsFianza.Update
Next
End With


Run-time error '-2147467259 (800004005)':
Insufficent or incorrect key information; too many row affected by update.

When I used RDO this code works perfectly.

Any idea?

Thanks!

Ulises