Problema para Ingresar un codigo

[Kruzado]

primero abres la tabla con este filtro :
on error resume next
"select * from mascotas where codcliente=" & tucodigo & " order by codmascota desc"

tutabla.movefirst
if err.number <> 0 'cliente sin mascotas
codigodemascota=1
else
codigomascota=rs!codmascota+1
endif