Visual Basic - Por que se duplican

Hola deseo saber por que cuando cargo los datos de una columna en un combo estos aparecen duplicados en el combo por ejemplo

los datos a cargar en el combo son estos:

Lunes
Martes
Miercoles
Jueves

entonces me aparecen dos de cada uno de ellos en el combo

Lunes
Lunes
etc....

El codigo que utilizo es el siguiente:

Combo2.Clear
Do While Not rs.EOF
Combo2.AddItem rs("Ubicaciones")
rs.MoveNext
Loop

El codigo de conexion es el siguiente

Dim cn as ADODB.Conexion
Dim rs as ADODB.Recordset

Se supone que rs el el recordset entonces que es lo que tengo mal

Gracias

Hola, Norwin!!!

Tu codigo para llenar el combo esta bien, fijate en tu tabla derrepente los tienes duplicados o o fijate si usas esas mismas lineas desde otro evento primero fijate en el load y despues sigue buscando si no lo encuentras y si sabes depurar encontraras el error mas rapido.

Espero te ayude

Saludos!!!

Ya rebise pero no encuentro el problema

Utilizo una bd tipo SQL server