Erro ADODB.Field '800a0bcd'

Estou recebendo um erro no meu arquivo .asp e não sei como resolver isso (não sei ASP, é um projeto antigo do meu cliente, outro desenvolvedor fez isso). O erro que estou recebendo é o seguinte:

    ADODB.Field error '800a0bcd'

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

    /br/grava_cadastro.asp, line 105

E as linhas:

 100 %>
 101   <!--#include file="abrir_arquivo.asp"-->  
 102 <%
 103 xip= Request.ServerVariables("REMOTE_ADDR")
 104 RS.Open "SELECT * from  visitas where vi_data = date() and vi_ip='" &  xip & "'",cn,3,3
 105 xlink=rs("vi_link")
 106 rs.close

Está bloqueando meu formulário de inscrição. Alguém sabe como resolver isso? Desde já, obrigado!

questionAnswers(1)

yourAnswerToTheQuestion