Le combo duplique les informations

Sub REMPLIRCOMBO()
        ' Dim iddir As String
        Dim DR As OracleClient.OracleDataReader 'Datareader qui reçoit le résultat de la requête
        Dim Cnx = New OracleClient.OracleConnection 'sqlconnection est un objet défini pour la connection       
        Dim SQLConnexion As String 'une variable dans laquelle on met la chaine de connection
        Dim Cmd = New OracleClient.OracleCommand() 'déclaration d'un objet commande pr exécuter la requête
        SQLConnexion = ConnectString 'contenu de la chaine de connection
        Cnx.ConnectionString = SQLConnexion 'attribution de la valeur de l'objet de connection à la chaine de connection

        Try
            Cnx.Open() 'ouverture de connection à la base. Si la chaîne de connection est fausse une erreur s'affiche
            Cmd.Connection = Cnx 'attribution de la connection ouverte à l'objet d'exécution de la requête
            Cmd.CommandType = CommandType.Text 'attribution du type de requête
            Cmd.CommandText = "Select * from DIRECTION ORDER BY DIRNUM ASC" 'Requête
            DR = Cmd.ExecuteReader 'Exécution de la Requête
            If DR.HasRows Then
                ' tant que le DataReader a une ligne d'enregistrements
                While DR.Read()
                    DLDIRECTION.Items.Add(DR("dirlibelle"))
                End While
            Else
                Me.Label1.Text = " Aucun Resultat "
            End If

        Catch err As Exception
            Response.Write(err.Message)
        Finally
            ' DR.Close()
            Cmd.Connection.Close()
        End Try
    End Sub