Remplir Combobox

Salut. Je veux savoir comment faire pour remplir un combobox à partir d'un champ du dataset à condition de ne pas avoir des doublons.
Merci d'avance.

salut
dans un de mes soft, j'avais ces deux fonctions dans un module :

 'Rafraichissement d'un Combobox
    Public Sub RefreshCb(ByVal Combo As ComboBox, ByVal Table As String, ByVal Champs() As String, ByVal Index As Integer)
        Combo.DataSource = AfficherTout(Table)
        Combo.DisplayMember = Champs(Index).ToString
    End Sub

'Fonction de recherche dans la table
 Public Function AfficherTout(ByVal table As String) As DataView
        Dim SourceConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Nomdelabasededonnée
        SourceOle = New OleDbConnection(SourceConnect)
        Select Case SourceOle.State
            Case ConnectionState.Closed
                SourceOle.Open()
        End Select
        Try
            RequeteSQL = "SELECT * FROM " & table
            Dim DataA As New OleDbDataAdapter(RequeteSQL, SourceOle)
            Dim DataS As New DataSet
            DataA.Fill(DataS, table)
            Dtt = DataS.Tables(table)
            Try 'return incorrect sur du Update
                Return DataS.Tables(table).DefaultView
            Catch ex As Exception
                Return Nothing
            Finally
                Select Case SourceOle.State
                    Case ConnectionState.Open
                        SourceOle.Close()
                        SourceOle.Dispose()
                        SourceOle = Nothing
                        SourceConnect = ""
                End Select
            End Try
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

et dans le formulaire, j'appelais le rafraichissement comme ceci :

RefreshCb(Nomducombobox, Nomdetatable, NomduChamps, Indexduchamps)

en esperant que ça te servira ...
@+
greg38bj