Sorteio de Dados... Funcionando + não 100%

Bom pessoal, tenho um bd com 4 registros, com um campo autonumeração e outro com as frases, só que quando aperto para dar refresh, quando acabam os registros, ele da um pau...

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/testando.asp, line 0

O endereço do script é http://www.ceitel.com.br/testando.asp

O código que to usando é:

<%Dim strCon, ConexaostrCon = "DBQ=e:\home\ceitel1\dados\frases.mdb;Driver={Microsoft Access Driver (.mdb)};"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open strConSet RS = Server.CreateObject("ADODB.Recordset")RS.Open "SELECT FROM produtos",Conexao,3,1,1Randomizeupperbound=RS.Recordcountlowerbound=1lRandom = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)RS.move lRandomResponse.Write RS("frases")RS.closeconexao.closeSet RS=NothingSet Conexao=Nothing%>

Alguém poderia me ajudar a consertar o erro?

Grato,

Gabriel