Erro ADODB.Field (0x800A0BCD) Either BOF or EOF is True, or the curren

Bom dia !!!

Alguem poderia me da uma ajudinha!!! Tenho este codigo em asp que esta dando o seguinte erro:

Error Type:

ADODB.Field (0x800A0BCD)

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

/sistemas/SolutionsH/PC/cliente_proposta_extensao_confirmar.asp, line 42

A linha 42 é o codigo: atendente = rsAtendentes("atendente")

<%option explicit%>

<!-- #include file="../conexao.asp" -->

<!-- #include file="sessao_verificar.asp"-->

<%

Dim sql, rsAtendentes, codigoClienteAFV, nomeCliente, codigoEquipamento, destino, destJanela, RS

Dim TotOuro, totPlatina, totPrata, totBronze, descDestino, codProposta, nomeContato, telefone

Dim parcelas, atendente, descontoPlatina, DescontoOuro, DescontoPrata, DescontoBronze

Dim total, observacao

codigoClienteAFV = session("codigoClienteAFV")

nomeCliente = session("nomeCliente")

codigoEquipamento = Request("equipamento")

destino = request("destino")

destJanela = "'cliente_dados.asp'" 'Passa parametro para consultar dados de cliente num POP.

nomeContato = request("nome")

telefone = request("telefone")

parcelas = request("parcelas")

Observacao = replace(Request("Observacao"), """", "'")'Troca todas aspas duplas por aspas simples. Pois a primeira aspa dupla fecha a string dentro do value. Perdendo as informações restantes.

descontoplatina = formatCurrency( Request("desconto_platina") )

descontoouro = formatCurrency( Request("desconto_ouro") )

descontoprata = formatCurrency( Request("desconto_prata") )

descontobronze = formatCurrency( Request("desconto_bronze") )

total = Request("total")

Select Case destino

	Case "propadesao"

 destino = "cliente_proposta_extensao_gravar.asp?destino=propadesao&tipo=1"

 descDestino = "Adesão"

	Case "propupgrade"

 destino = "cliente_proposta_extensao_gravar.asp?destino=propupgrade&tipo=2"

 descDestino = "Upgrade"

' Case "proprenovacao"

' destino = "proposta_extensao_renovacao.asp?destino=proprenovacao&tipo=3"

' descDestino = "Renovação"

End Select

 

sql = "SELECT * FROM atendentes WHERE login = '" & login & "'"

Set rsAtendentes = DataConn.Execute(sql)

atendente = rsAtendentes("atendente")

%>

Alguem sabe me dizer como corrigir este erro!!!

Obrigada