Los Rows van en pares ?

[damid3]

Bueno ya lo tengo resuelto con lo siguiente

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 = ri + 1, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
            tba.Text = ri

        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 = ri - 1, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
            tba.Text = ri

        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")
            tba.Text = ri
        End If
        consql.Close()

Saludos