ADO recordset update problem

[Tonatiuh]

This segment of code gives me the follow error:

'fgrGaran' is FlexiGrid Control and 'rsFianza' is an ADO 2.1 recordset.

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

[This message has been edited by Tonatiuh (edited 10-01-1999).]