[VB6] ComboBox - Inserimenti righe univoche

[raffaeu]

Prima di inserire

Dim conta as integer
conta = miaCombo.listCount
For x = 0 To conta
   If miaCOmbo.listCount(x).text <> rs!("Desc") Then
     miaCombo.add ----->
   End If
Next