tenho uma tabela de contatos usando vb6 dao, access 2000. quero rastrear as 4 opções e ver se o caption de alguma dela é igual a um campo da tabela< alguem sabe alguam dica? dentro da tabela campos com respostas variadas e uma somente é certa e queria comparar a unica certa com a caixa de opção

 

fiz o seguinte

do while rsContato.eof

 If OptChecarQuestoes(1).Caption = rs!respostacerta Then

 

msgbox"respostacerta"

loop

 

end if

 

mas sai errado só mostra o ultimo registo que não é o certo, obrigado