Réponse acceptée !

salut j'ai trouver la solution :
1- la modification des données sur la bd est à cause de ligne suivant :
Set DataCombo1.DataSource = rstDataCombo1.DataField = "libellé"
2- donc j'ai les supprimer et puis voila la correction
sqlGouv = "SELECT COD_GOUV, LIB_GOUV FROM GOUVERNERAT order by COD_GOUV "
rsGouv.Open sqlGouv, CnCanNeuf, adOpenStatic, adLockOptimistic
Set DCmb_Gouv.RowSource = rsGouv
Me.DCmb_Gouv.ListField = "lib_GOUV"
Private Sub DCmb_Gouv_Change()
If DCmb_Gouv <> "" Then
rsGouv.Bookmark = DCmb_Gouv.SelectedItem
End If
Text1 = rsGouv.Fields("cod_GOUV").OriginalValue ' nom d'un champ quelconque dans la base
End Sub