Será que llegaste al final del RecordSet... antes de hacer el movenext primero tienes que preguntar si llegaste al final, y si lo llegaste mandar un msgbox o lo que gustes...
if not reg.EOF then
reg.movenext
reg.Fields()= a algun textbox o label y todo lo que tu quieras
else
msgbox "Estas en el final"
end if
quedaria algo asi. Cualquier cosa preguntas
