REMOVER ITENS DUPLICADOS DO COMBO

 Static CMD As FbCommand
        Static DR As FbDataReader
        SQL = [Ô][Ô]
        SQL = [Ô]SELECT distinct extract(year from dvenda) as ano from estoque where(dvenda is not null)[Ô]

        CMD = New FbCommand(SQL, conexaoFB)
        DR = CMD.ExecuteReader

        CMB_ano.Items.Clear()
        Do While DR.Read
            CMB_ano.Items.Add(Trim(DR([Ô]ano[Ô]).ToString))
        Loop
        DR.Close()