Problemas com while

Gente, eh o seguinte, eu tenho um while que precisa checar se o registro atual é diferente dos outros 3 anteriores então o código

bnd = 0 if tabrow = 4 then RSLocaliza.Movefirst while not i = 3 or RSLocaliza.EOF while Cami1 = RSLocaliza("ModeloCaminhao") Or Cami2 = RSLocaliza("ModeloCaminhao") or Cami3 = RSLocaliza("ModeloCaminhao") RSLocaliza.movenext bnd = bnd + 1 wend i = i + 1 wend

Cami1 é o primeiro, Cami2 o segundo e Cami3 é o terceiro....

quando eu uso isso, ele da erro de exceção qdo não existe o 4º registro....

se ele acha 3 ele da pau na linha do while,

while Cami1 = RSLocaliza("ModeloCaminhao") Or Cami2 = RSLocaliza("ModeloCaminhao") or Cami3 = RSLocaliza("ModeloCaminhao")

Alguem tem alguma ideia de como resolver isso? ja tentei com if mais num funciono...

obrigado