'Form level variable
dim cm as CurrencyManager

load event
after fill dataset and add bindings

cm = ctype(me.bindingcontext(ds, "Customers"), CurrencyManager)

'Click button event

cm.Position += 1

or

cm.Position -= 1