Regazzo, isto aconteça por que o seu código realmente esta inserindo duas vezes, uma com o método:
rs.Open "Vot_Mais_2007", conn
e outra com
Set rs = conn.Execute(strSelect)
Retire uma das duas e faça um teste
Obs: Aqui voce esta dando um execute na string sql e gravando no recordset, mas como a string nao traz nada o recordset fica em branco.
Abraços
Estevam