ex:pour l'enregistrement private sub cmdEnregistrer_click() dim prix as double prix = Txtprix.text data.rstPieces!prix = prix data.rstPieces.Update end sub Ex:pour la lecture private sub lecture_click() dim prix as double prix = data.rstPieces!prix Txtprix.text = prix end sub