Bonjour Professionnels

Je veux ajouter des nouveaux items a mon combobox et modifier la propriété text aprés le remplissage avec datasource mé j'arrive pas à le faire

Merci d'avance

Voici Mon Code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Public Sub RemplirComboboxRamasseur(ByVal cmb As ComboBox)
        If ds.Tables.Count <> 0 Then
            ds.Tables.Clear()
        End If
        Dim p As Prototype
        Connecter()
        Dim sql As String
        sql = " select NumEmployé,NomEmployé FROM Employé where Fonction='Ramasseur'"
        cmd.Connection = con
        cmd.CommandText = sql
 
        da.SelectCommand = cmd
        da.Fill(ds, "DTRamasseur")
        cmb.DataSource = ds.Tables("DTRamasseur")
        cmb.DisplayMember = "NumEmployé"
        cmb.ValueMember = "NomEmployé "
 
        cmb.Text = "--Selectionnez un Ramasseur--"
        cmb.Items.Add("--Selectionnez un Ramasseur--")
        cmb.Sorted = True
        dr.Close()
        Deconnecter()
    End Sub