[VB6] ComboBox - Inserimenti righe univoche

[Surrender79]

Ciao, ho bisogno di un suggerimento e consiglio per il popolamento di una combo.
Ho un ciclo su una tabella, per ogni record di essa vado ad aprire un'altra tabella che se rispecchia una certa condizione me ne apre un'altra. Se in questa tabella c'è il record che mi serve allora inserisco il campo che mi serve all'interno di una combobox.
Problema: può capitarmi che in corrispondeza a 2 record della prima tabella vado a pescare lo stesso dalla tabella 2 quindi dalla 3. Ciò significa che nella combo avrò 2 righe identiche e che non mi servono visto che mi basta averlo 1 volta.
Per risolvere il problema devo per forza fare un ciclo ogni volta sulla combo per vedere se ho già inserito quella riga e agire di conseguenza? Se sì, come si fa un ciclo su una combo?

Provo a spiegare anche con esempio:

Tabella1
- Id1
- Desc1

Tabella2
- Id2
- Desc2

Tabella3
- Id3
- Desc3

sql1 = "SELECT * FROM Tabella1"
apro Rs1
WHILE NOT Rs1.EOF
   sql2 = "SELECT * FROM Tabella2 WHERE id2=" & rs1("id1")
   apro Rs2
   if not rs2.eof then
      sql3 = "SELECT * FROM Tabella3 WHERE id3=" & rs2("id2")
      apro Rs3
      if not rs3.eof then
         miacombo.additem rs3("desc3")
      end if
   end if
   rs1.movenext
WEND

ecco quando popolo la combo dovrei controllare che quella riga non sia già stata inserita così evito di farla doppia

[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

[Surrender79]

non va il listcount, sto provando anche con gli altri "list" senza risultati, ora smanetto un po' cmq grazie per il suggerimento

[raffaeu]

Guarda non ricordo bene comunque è o ListCount o ListIndex