Doublons ComboBox VB6

Bonjour, Avec ce Code, dans ma comboBox jai 2 foi la meme Marque.. comment faire pour quel ne s'afficher qu'une fois ??


Dim SQL As String
Dim Requete As Recordset
Dim vrai As Boolean
Dim x As String

CboModele.Text = "Modele"
CboMarque.Clear

SQL = "SELECT Marque_Bateau "
SQL = SQL & "FROM SousType "
SQL = SQL & "Order by Marque_Bateau asc"

Set Requete = CapArmor.OpenRecordset(SQL)
If Not Requete.BOF Then
Requete.MoveFirst
vrai = True
x = 0

While vrai = True
If Not Requete.EOF Then
CboMarque.List(x) = Requete.Fields(0)
Requete.MoveNext
x = x + 1
vrai = True
Else
vrai = False
End If
Wend
CboMarque.Text = "Selectionner le Bateau à Supprimer!!"
Else
CboMarque.Text = "Pas d'enregistrement"
End If

Configuration: Windows XP
Firefox 2.0.0.11