El Vector se reescribe

[neofilo]

Tengo una tabla con los siguentes datos
Madrid, Villaverde
Madrid, Villaverde
Madrid, Rivas-Vaciamadrid


el codigo que tengo es

Código:

  		Cantidad = 0
		Dim Vector()
		redim Vector(0)
   		sqlNumLocalidades = "SELECT *  FROM Grupos_PEC" 
		Set objRSNumLocalidades = cn2.Execute(sqlNumLocalidades)
		
		if objRSNumLocalidades.eof then
			Response.Write("<h2>Actualmente no hay ning&uacute;n Grupo de Compra</h2>")
		else
			Vuelta = 0
			while not objRSNumLocalidades.eof
				Variable = objRSNumLocalidades.Fields("Provincia") & " - " & objRSNumLocalidades.Fields("Localidad")
				Vuelta = Vuelta + 1
				
				For Contador = 0 to ubound(Vector)
					if Variable = Vector(Contador) then
						'Contador = Contador +1
					else
						Cantidad = Cantidad + 1
						redim preserve Vector(Cantidad)
						Vector(Contador) = Variable
						response.Write("Contador ="&Contador&"<br>")
						'Contador = Contador +1
						'Response.Write("<h2>"&objRSNumLocalidades.fields("Provincia")& " - "& objRSNumLocalidades.fields("Localidad")&"<br></h2>")
					end if
				Next
			objRSNumLocalidades.movenext
			Wend	
			
			'Mostramos los grupos
			TamanoVector = ubound(Vector)
			
			if TamanoVector = 0 Then
				Response.Write("<h2>Actualmente no hay ning&uacute;n Grupo de Compra</h2>")
			else
			
				For ContadorResultados = 0 to ubound(Vector)
					Response.Write("<H2>"&Vector(ContadorResultados)&"</h2>")
				next
			end if
		end if

Como vereis tengo

Código:

response.Write("Contador ="&Contador&"<br>")

Para hacer Debug pues las 2 primeras vueltas el valor es 0 y no funciona correctamente, el resultado es el siguiente:

Contador =0
Contador =0
Contador =1

y la lista de lo que ha guardado en el vector es:

Madrid - Villaverde
Madrid - Villaverde

¿Donde tengo el fallo para que contador adopte 2 veces el mismo valor?