Hola
Primero tienes que mover el recordset y a continuación comprobar si es el último registro, ya que al pulsar el botón todavía no ha llegado a EOF.
Código:
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
PasarNombre
--Saludos--