Excel - xlodbc eof y bof

hola!
estoy haciendo una mantenimiento en vba con una coneccion de datos externa utilizando el complemento XLODBC

ha corrido todo bien las consultas y también al crear un nuevo item atraves del from vba.

ahora el mantenimeinto debe tener botones de navegacion "primer, anterior, siguiente y ultimo registro"

hice este código pero tantiando con otros codigos pero no corre bien que me aconsejarían hacer?:

'-----------------------------------
sub cmb_bnave()

Dim strRs As String
Dim rsODBC As Variant
ID& = SQLOpen("DSN=DIRTRIM")

strRs = "SELECT CARGO.CARGO_COD, CARGO.CARGO_DESC FROM CARGO CARGO ORDER BY CARGO.CARGO_DESC"""

rsODBC = SQLRequest(ID&, strRs)

If rsODBC.EOF Then MsgBox "EOF!"

'Do While Not rsODBC.EOF
'... code, that is not executed
'rsODBC
'Loop

end sub
'--------------------------------------