Visual Basic.NET - No actualiza registros inmediatamente

nombre = txtNombre.Text       '''tengo una conexion abierta y probada jalando.

If grup = "1° A" Or grup = "1° B" Or grup = "1° C" Or grup = "1° D" Then

	Dim cadenasql2 As String = ("SELECT * FROM primero WHERE nombre = '" + nombre + "'")

	Dim adaptador2 As New OleDbDataAdapter(cadenasql2, conexion)

	Dim Ds2 As New DataSet

	adaptador2.Fill(Ds2)

	comm.Connection = conexion

	comm.CommandType = CommandType.Text

	cadenasql2 = "UPDATE primero SET  " & asignatura & "='" & TextBox1.Text & "' WHERE nombre='" & nombre & "'"     'asignatura es una variable que representa a un campo de la BD, funciona bien

	comm.CommandText = cadenasql2

	comm.ExecuteNonQuery()                          ''' aqui supuestamente ya guardó los cambios en la BD

	For Each row As DataRow In Ds2.Tables(0).Rows

		promAsig = 0

		'Dim num As Integer

		'num = 0

		For x = 1 To 5

			'num = num + 1

			If (Val(row.Item(asignat & x))) = 0 Then Exit For

			If x = ComboBox4.Text Then                        'este es el bimestre que se está evaluando

				promAsig = promAsig + TextBox1.Text     'quiero sumar lo que tenga promAsig más la evaluación del bimestre actual

			Else

				promAsig = promAsig + (Val(row.Item(asignat & x)))    '''aqui recorre los cinco bimestres y acumula la evaluación

			End If

			promAsig = promAsig / x          '''divide entre el núm de bimestre actual

				Next

	Next

	cadenasql2 = "UPDATE primero SET  " & asignat & 6 & " ='" & promAsig & "' WHERE nombre='" & nombre & "'"   '''inserta el promedio de asignatura (o al menos eso debe hacer, pero el resultado es muy distinto al esperado)

	comm.CommandText = cadenasql2

	comm.ExecuteNonQuery()

	'guardapromedios()

	conexion.Close()

	MsgBox("Se actualizó el registro del alumno con la nueva evaluación")