Visual Basic - movefirst , movenext etc

nesecito ayuda por que cuando creo un boton parra moversrer por un recordset se me de vuelve por ejemplo el boton primero es
adodc1.recordset.movefirst
tengo problema cuando kiero moverme al siguiente cuando llego al fina se me caeo lo tengo de la siguiente forma
if adodc1.recordset.eof then

adodc1.recordset.?????
end if
no se que poner cuando llege al ultimo archivo para que se quede hay parado se me cae si alguen me puede ayudar por favor

Creo que tendrias que poner

if not rs.adodc1.recorset.eof = true then
adodc1.recorset.movenext
end if

entonces cuando llegue al ultimo va a registrar que esta ahi y no hara nada, quedara mostrando el ultimo.
Si no funciona y queres avisarme hacelo a mi direccion de correo que me fijo en alguno de mis codigos que lo tengo hecho, creo recordar que es asi, Suerte, Javiera

Crea dos Botones:

Private Sub CmdMoverAtras()
AdoDc1.Recordset.MovePrevious
If ADODC1.Recordset.BOF then ADODC1.Recordset.MoveFirst
End Sub

Private Sub CmdMoverAdelante()
AdoDc1.Recordset.MoveNext
If ADODC1.Recordset.EOF then ADODC1.Recordset.MoveLast
End Sub