Duas coisas:
1) Sempre q for fazer uma pesquisa com FIND, antes dá um M O V E F I R S T.
2) Como vc pega o resultuado??? o FIND só vai localizar a primeira ocorrencia do critério, não vai filtrar nada... vc deve testar se o cursor está em algum registro, usando o EOF. Se EOF for false, então o registro atual é o primeiro resultado, e a partir dele, vc deve chamar o FIND novamente para encontrar novas ocorrencias, até que EOF seja True. Assim, vc vai passar por todos os registros que atendam ao criterio.
Da uma olhada no exemplo:
dim criterio as string
criterio = 'seu criterio de busca
RS.M o v e F i r s t
do until RS.EOF
RS.Find criterio
If not RS.EOF then
'o registro atual atende ao criterio.
'aqui vc poe o processamento que quiser...
loop
'depois do loop, a pesquisa foi concluida...
'nao tem mais registros que atenden o criteiro
Uma forma mais facil de fazer isso, é usando o Filter. Assim:
dim criterio as string
criterio = 'seu criterio de busca
RS.Filter criterio
RS.M o v e F i r s t
Do until RS.EOF
'aqui vc ja inclue o processamento.
'todos os registros que atendem o criterio estão filtrados...
RS.M o v e N e x t
loop
Kra, não sei se te ajudei...
QQ coisa manda um e-mail...
abraços...
