Siguiente y Anterior de una consulta

[RootK]

Tambien para mi gusto sería mas fácil declara una variable de tipo currency manager para navenagar por lo registros y con ello no tienes que estar haciendo referencia a cada momento al dataset.

Por ejemplo...declaras.

Private cmCustomers As CurrencyManager

ahora.. en tu form:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As New DataSet
dAdap.Fill(ds)

Dim dtCUstomers As New DataTable
dtCUstomers = ds.Tables(0)

txtCompanyName.DataBindings.Add( _
"Text", dtCUstomers, "CompanyName")

cmCustomers = CType(Me.BindingContext( _
dtCUstomers), CurrencyManager )

cmCustomers.Position = 0

'lo inicializas en cero...

End Sub

Ahora en tus botones...(move last, next, previous, etc..) podrías quedar así.

btnMoveLast _Click
cmCustomers .Position = cmCustomers.Count - 1

btnMoveNext _Click
If cmCustomers.Position <> cmCustomers.Count - 1 Then
cmCustomers.Position += 1
End If

Ponemos un If para que no vayamos a tener error:

btnMoveFirst _Click
cmCustomers.Position = 0

btnMovePrevious _Click
If cmCustomers.Position <> 0 Then
cmCustomers.Position -= 1
End If

Y listo... te podrás mover como quieras por tu cuadro de texto.

Saludos y suerte