Erreur Delete Vers AS400

bonjour,

Voila, j'ai une procèdure stockée qui se connecte à un AS400 via une chaine de connexion

Code:

OPENDATASOURCE('IBMDA400', 'Data source=TOA;User Id=USER;Password=PASS)

quand je fais un select sur cette connexion ca fonctionne sans problème.
Par contre ca plante si je fais un Delete ou Update
Code:

1 2 3 Trace de l'erreur OLE DB [OLE/DB Provider 'IBMDA400' IOpenRowset::OpenRowset returned 0x80004005: ]. Msg*7399, Niveau*16, État*1, Ligne*7 Le fournisseur OLE DB 'IBMDA400' rapporte une erreur.
Si je me connecte en developpement VB, je peux faire ce que je veux sans problème.

Avez vous une idée?

Jérôme