[Resolvido] .EOF e .BOF

Bom Dia,

Pessoal, vejam o código abaixo:

i = 0 'Inicializa a Variável.

calculo_percent = 0

contgeral2 = 0

nregs3 = nregs3 - 1

'Redimensiona o Array, tornando-o dinâmico.

ReDim calculoperc_array(nregs3)

'Apura a ocorrencia das respostas na tabela.

Do While control4 = 0

For i = 0 To nregs3

codpergunta = codper_array(i)

resposta = resposta_array(i)

'Verifica ocorrências da resposta na tabela.

With cnnComando

.ActiveConnection = conexao_bd

.CommandType = adCmdText

 .CommandText = "Select * From QUESTIONARIOS2 Where COD_PER = '" & codpergunta & "' And RESPOSTA_RESP = '" & resposta & "' ;"

 Set rsSelecao = .Execute

 End With

 

 contgeral2 = rsSelecao.RecordCount

 

 

 calculo_percent = ((contgeral2 / nregs) * 100) 'Acha o percentual da apuração.

 

 calculoperc_array(i) = calculo_percent

 

 Print i, contgeral2

 

 If rsSelecao.EOF Then

 rsSelecao.MoveFirst

 End If

 

 calculo_percent = 0

 contgeral2 = 0

 

 Next i

 Exit Do

 Loop

 Set cnnComando = Nothing

 Set rsSelecao = Nothing

Ele tem me apresentado o seguinte erro:

" BOF ou EOF são verdadeiros ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual."

Ele aponta sempre para a linha, rsSelecao.MoveFirst

Sei que algo há de errado pois o início ou fim foram encontrados. Tô meio crú neste negócio.

O que fazer neste caso? Se tenho que mudar

If rsSelecao.EOF Then

rsSelecao.MoveFirst

End If

como ela deve ficar então?

Por favor, me ajudem...