select vazio

Galera, estou usando o código abaixo para selecionar do banco todos os valores contidos na tabela voto.

<% Dim Conn, BD, SQL, RSBD=Server.MapPath("clicks.mdb")SET Conn = Server.CreateObject("ADODB.Connection")Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & BD SQL="SELECT * FROM Click_voto ORDER BY voto DESC" SET RS=Conn.Execute(SQL)response.write sql%>

Mas o Select está vindo vazio.

com essa resposta.

SELECT * FROM Click_voto ORDER BY voto DESC

salva aí moçada.

valeu