Visual Basic - .Addnew, parte2

Hey josman gracias por tu ayuda, bueno queria decirte que el codigo me da un error raro, This Action was canceled by an associated object. y me apunta al Data5.Recordset.AddNew
El Codigo te lo dejo.

If txtCant < 0 Then
MsgBox "Por favor introduce la Cantidad"
End If
If txtCodigo < 0 Then
MsgBox "Por Favor introduce el Codigo"
End If

Data5.Recordset.AddNew
Data5.Recordset("Codigo") = txtCodigo
Data5.Recordset("Cantidad") = txtCant
Data5.Recordset("Descripcion") = txtDescripcion
Data5.Recordset("P/U") = txtPU
Data5.Recordset("Total") = txtTotal

Data5.UpdateRecord
Data5.Refresh
MSFlexGrid1.Refresh
End Sub

Está claro que el error lo da el DataControl.
Suponiendo que los datos a introducir no vayan contra natura, creo que el error está en Data5.UpdateRecord, que debería ser Data5.Recordset.Update.

Gracias por responder. Mira ahora me dice: This action was cancelled by an associated object y me señala a Data5.Recordset.AddNew. Gracias!