Visual Basic - Como cargar un combo sin repetir datos?

Esta es muy facilita..como puedo cargar un combo con datos de una base de datos sin repetir datos..yo cargo asi los datos:

conn.Open
Set rsloc = New ADODB.Recordset
rsloc.Open "localidad", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutabase & ";Persist Security Info=False", adOpenDynamic, adLockOptimistic
Do While rsloc.EOF = False
Combo1.AddItem rsloc("poblacion")
rsloc.MoveNext
Loop
rsloc.Close
conn.Close

Un saludo y gracias por todo..

campo1=es el campo a mostrar
conn.Open
Set rsloc = New ADODB.Recordset
sql="Select Distinct Campo1 From Poblacion Order By Campo1"
rsloc.Open sql, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutabase & ";Persist Security Info=False", adOpenDynamic, adLockOptimistic
Do While rsloc.EOF = False
Combo1.AddItem rsloc("poblacion")
rsloc.MoveNext
Loop
rsloc.Close
conn.Close

conn.Open
Set rsloc = New ADODB.Recordset
sql="Select Distinct Poblacion From localidad Order By Poblacion"
rsloc.Open sql, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutabase & ";Persist Security Info=False", adOpenDynamic, adLockOptimistic
Do While rsloc.EOF = False
Combo1.AddItem rsloc("poblacion")
rsloc.MoveNext
Loop
rsloc.Close
conn.Close