Visual Basic.NET - for each NO RECORRE registros

Dim nombrefoto As String

Dim cadenasql As String = ("SELECT * FROM primero WHERE grado = '" + ComboBox1.Text + "' ORDER BY nombre ASC")

Dim adaptador As New OleDbDataAdapter(cadenasql, conexion)

Dim Ds As New DataSet

adaptador.Fill(Ds)

conexion.Close()

If (Ds.Tables(0).Rows.Count = 0) Then

    MsgBox("No existen alumnos en este grado")

Else

    Label6.Text = Ds.Tables(0).Rows(0)("grado").ToString()

    Label7.Text = ComboBox5.Text

    Label8.Text = ComboBox2.Text

    GroupBox1.Visible = False

    '''establecer el ciclo para recorrer a todo el grupo

    For Each row As DataRow In Ds.Tables(0).Rows     'aqui inicio a recorrer el Ds y asigno etiquetas

        nombrefoto = Ds.Tables(0).Rows(0)("nombre").ToString() & ".jpg"

        Label9.Text = Ds.Tables(0).Rows(0)("nombre").ToString()

        PictureBox1.Image = Image.FromFile("\\subdirector\est22\fotos\" & nombrefoto)

        TextBox2.Focus()

        '''aqui realizar cálculos matemáticos

        '' supuestamente regresa al bucle pero la siguiente vez las etiquetas son las mismas, mismo nombre, misma foto, etc., o sea, no cambia al siguiente registro y asi hasta pasar los 20 alumnos

    Next

    Ds.Dispose()

End If

Label9.Text = Ds.Tables(0).Rows(0) ("nombre").ToString()

Label9.Text = row.item("nombre").ToString()

Label9.Text = row("nombre").ToString