Visual Basic - BARRA SCROLL

COMO PUEDO HACER PARA SUSTITUIR LA BARRA SCROLL DE UN DBGRID PONIENDO DOS BOTONCITOS CON FLECHAS PARA REALIZAR LA MISMA FUNCION DE RECORRER LOS REGISTROS????
GRACIAS¡¡¡

Private Sub Command1_Click()
with rs
.Movenext
if .eof=true then
msgbox "Ya llego al final del registro"
.moveprevius
end if
end with
esto sería para el boton de busqueda para abajo en el otro lo que cambiaria es que en lugar de movenext seria moveprevius y en lugar de preguntar si el valor eof=true se pregunta si el valor bof es igual a true y