Visual Basic - Borrar duplicados de una combo

Hola a todos, Alguien sabria decirme cual es la manera mas rapida de borrar datos duplicados en una combo?
Quisiera saber esto porque tengo una base de datos de 4000 registros y cuando meto uno de los campos en la combo, de la manera que hago yo tarda muchisimo. Asi lo hago yo:
.Data1.Recordset.MoveFirst 'Para Cargar la combo de clientes
Do While Not .Data1.Recordset.EOF
For i = 0 To .Combo1.ListCount
If .Data1.Recordset("customer") = .Combo1.List(i) Then
i = -1
Exit For
End If
Next i
If i <> -1 And .Data1.Recordset("Customer") <> "" Then
.Combo1.AddItem .Data1.Recordset("customer")
End If
If Err Then
fail
End If
.Data1.Recordset.MoveNext
Loop
Muchas gracias

Prueva:
--en el caso que sea DAO:
Data1.DatabaseName ="c:\ruta..."
set Data1.Recordset="select distinct customer from NombreTabla"
combo1.clear
while Data1.Recordset.eof=false
combo1.AddItem Data1.Recordset("customer")
Data1.Recordset.movenext
wend
--en ADO es lo mismo especificando la conexion a la B.D.

Un Saludo Sergio