Dim maBase As DataClasses1DataContext = New DataClasses1DataContext() Dim adAgence = From ad In maBase._ADMIN_AGENCE Select ad.AGENCE_ID, ad.AGENCE_SIGLE For Each ligne In adAgence Me.Cmb_Lib_Num.DisplayMember = ligne.AGENCE_SIGLE Me.Cmb_Lib_Num.ValueMember = ligne.AGENCE_ID Next <code></code>