Visual Basic.NET - ayudacon DATASET

saludos
tengo una tabla y esta la necesito actualizar varios campos de la misma
ahora bien dentro de VB 6 existe el movenext. moveprevius,

en vb.net como se substituye eso

Gracias espero puedan ayudarme

Hola Raul.

Pues mira, tienes varias opciones:

1. Te puedes declarar una variable del tipo integer, y recorrer el dataset con la colección de Rows. Ej. Dataset1.tables(tabla).rows(variable).item(campo).value
El movenext y el moveprevious de vb6 sería variable += 1 y variable -= 1

2. Puedes crearte un objeto bindingsource, y pasarle el dataset1.tables(tabla) como datasource. Ej.: bindingsource1.datasource = ds.tables(0). el objeto bindingsource tiene los métodos movenext, movelast, etc...

3. También puedes pasarle al bindingsource, en lugar del datatable, una vista. Ej.: bindingsource1.datasource = ds.tables(0).defaultview. De esta manera podrás trabajar de una manera más dinámica, filtrando resultado y demás.

Espero que te sirva.

espero te sirva, este es el codigo que tengo en mis botones de desplazamiento
boton inicio:
Me.BindingContext(DataSet11, "ejemplo").Position = 0
boton anterior
Me.BindingContext(DataSet11, "ejemplo").Position = (Me.BindingContext(DataSet11, "Ejemplo").Position - 1)
siguiente:
Me.BindingContext(DataSet11, "ejemplo").Position = (Me.BindingContext(DataSet11, "ejemplo").Position + 1)
final
Me.BindingContext(DataSet11, "EJEMPLO").Position = _
Me.BindingContext(DataSet11, "EJEMPLO").Count - 1

ok ya tengo este codigo
pero como se hace automatico pasar registro por registro sin un boton de avance
gracias por la ayuda

Dim ds As New DataSet
Dim bind As New BindingSource
sql = "SELECT * FROM formulas"
da = New OleDb.OleDbDataAdapter("select * from formulas", Cn)
Label1.Visible = True : Txtform.Visible = True
da.FillSchema(ds, SchemaType.Source, "formulas")
da.Fill(ds, "formulas") : Cn.Close()
bind.DataSource = ds
bind.DataMember = "formulas"
Txtform.DataBindings.Add(New Binding("text", bind, "codmp1", True))
MsgBox("Registro: " & bind.Position.ToString & " / " & bind.Count.ToString)
bind.Position = bind.Position + 1
MsgBox("Registro: " & bind.Position.ToString & " / " & bind.Count.ToString)
Me.BindingContext(ds, "codmp1").Position = (Me.BindingContext(ds, "codmp1").Position + 1)
Txtform.DataBindings.Add(New Binding("text", bind, "codmp1", True))

espero puedan ayudarme