Visual Basic - Por favor expertos

Hola tengo un problema que no se como resolver lo que pasa es que cuando cargo los datos de una columna en un combo estos se duplican por ejemplo

Los datos a cargar son:

Lunes
Martes
Miercoles
Etc....

Entonces cuando despliego el combo aparecen duplicados.

Lunes
Lunes
Martes
Martes
Miercoles
Miercoles

No se por q pasa esto, en la bd NO HAY DATOS DUPLICADOS y el codigo que utilizo es el siguiente

Para la conexion a la bd

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset etc.....

y para el combo

Combo2.Clear Este lo cargo el Formulario no se si es asi
Do While Not rs.EOF o hay otra forma de hacerlo
Combo2.AddItem rs("Ubicaciones")
rs.MoveNext
Loop

Gracias

Mira en el codigo que muestras no parece haber nada mal, posiblemente el problema sea en la consulta .

Por que no la posteas para ver si es alli.

saludos