Los Rows van en pares ?

[damid3]

a ver pude hacer que valla de adelante con el siguiente y atras con el anterior pero me sigue saltando de a 2 alguna idea

Código:

        query = "SELECT * from familias"
        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter(query, consql)
        consql.Open()
        If ri >= 0 Then
            ri += 1
            da.Fill(ds, ri, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
        End If
        consql.Close()

Código:

 query = "SELECT * from familias"
        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter(query, consql)
        consql.Open()
        If ri > 0 Then
            ri -= 1
            da.Fill(ds, ri, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
        ElseIf ri = 0 Then
            da.Fill(ds, ri, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
            MsgBox("Esta en el Primer Registro")
        End If
        consql.Close()