La fonction distinct en vb6

Bonjour

J'ai un petit probléme avec la fonction "distinct"
Ce que je savais de cette fonction, est qu'elle évite le doublon dans une combox.
Ma constation est qu'elle efficace seulement quant un mot se répete 2 fois, alors que dans le cas où
un mot se répéte plus que 2 fois, la fonction "Distinct" élimine un élément.

Y'a t il une solution à cette faille ?

Je mets à votre disposition mon code:

cmbTravaux.Clear


SQLs = "select Distinct(Travaux) from TableTravaux where (Societe='" & CStr(VarSociete) & "')"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

Do Until RS.EOF

cmbTravaux.AddItem (RS![Travaux])

RS.MoveNext
Loop
RS.Close

Merci d'avance pour toute réponse