Erro!

Bom dia a Todos,

Estou com um problema e não estou conseguindo resolver, gostaria muito da ajuda de vocês:

Esse é o código:

vbd_fidelizacoes = ""

SQL = "exec SP_ITA_SELECIONA_CAMPOS_OUTRAS_FIDELIZACOES '" & session("id_cli_itapemirim") & "'"

set rscliente_fidelizacao = DbConn.execute(SQL)

if rscliente_fidelizacao.fields(0).value > 0 then

while not rscliente_fidelizacao.EOF

If vbd_fidelizacoes <> "" Then

vbd_fidelizacoes = vbd_fidelizacoes & ","

End If

vbd_fidelizacoes = vbd_fidelizacoes & rscliente_fidelizacao.Fields("TP_FID")

rscliente_fidelizacao.movenext

wend

end if

vbd_cartoes = ""

rscliente_fidelizacao.Close

SQL = "exec SP_ITA_SELECIONA_CAMPOS_CARTAO_CRED '" & session("id_cli_itapemirim") & "'"

set rscliente_cartao = DbConn.execute(SQL)

if rscliente_cartao.fields(0).value > 0 then

while not rscliente_cartao.EOF

If vbd_cartoes <> "" Then

vbd_cartoes = vbd_cartoes & ","

End If

vbd_cartoes = vbd_cartoes & rscliente_cartao.Fields("CARTAO")

rscliente_cartao.movenext

wend

end if

Esse é o erro:

ADODB.Field error '800a0bcd'

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

/ita_hotsite/formulario.asp, line 337

Obrigado pela força Galera!