[Resolvido] Seleção de mês distinto em campo data

Prezados,

Na minha base de dados Acess eu tenho:

id data

1 01/12/2009

2 20/12/2009

3 01/01/2010

4 15/01/2010

Gostaria de retornar apenas um mês de cada data, assim:

1 Janeiro

2 Dezembro

Tentei algumas variações com Distinct month(data), mas não funcionou. O resultado é duas vezes o mês de dezembro e duas vezes o mês de janeiro. Gostaria que o while não os repetisse.

Atualmente está assim:

call abre_conectar

sql = "select distinct(data) from cursos WHERE cidade LIKE '%" &cidade& "%' ORDER BY data;"
set rs = cnn.Execute(sql)

select case month(rs("data"))
case 1: vMes = "Janeiro"
case 2: vMes = "Fevereiro"
case 3: vMes = "Março"
case 4: vMes = "Abril"
case 5: vMes = "Maio"
case 6: vMes = "Junho"
case 7: vMes = "Julho"
case 8: vMes = "Augosto"
case 9: vMes = "Setembro"
case 10: vMes = "Outubro"
case 11: vMes = "Novembro"
case 12: vMes = "Dezembro"

end select

<select id="data" name="data" class="input" onChange="getData(this);">
<option value="0">Selecione</option>

<%
while not rs.EOF
%>

<option value="<%Response.Write month(rs("data"))%>" <% if data = data then response.Write("selected") end if%>><%Response.Write vMes %></option>
<%
rs.MoveNext
wend

call fecha_conectar
set rs = nothing
%>
</select>