Visual Basic - Ayude con una duda

Hola tengo una duda y necesito que me ayuden no se que estoy haciendo mal.

Lo que pasa es que cuando hago calculos numericos como por ejemplo sumas restas multiplicaciones o divisiones los resultados no se guardan cuando doy clic en el boton guardar. Solo se guardan si avanzo al proximo registro.

Les voy enviar un ejemplo de codigo analicenlo por favor y ayudenme que quiero aprender

Gracias.

Bueno esta es la conexion que utilizo

Private Sub Form_Load()
On Error GoTo Formulario
Modoeditar False
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cadena = "Provider=SQLOLEDB.1;" & _
"User ID=sa;" & _
"Initial Catalog=Guanica_sa;" & _
"Data Source=GSOFT\GUANICA"
cn.ConnectionString = cadena
cn.Open
rs.ActiveConnection = cn
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseClient
rs.Open "Select [No Tarjeta],[Nombres y Apellidos],[HE],[S_HE2],[Total Incentivo],[Depto],[Viatico2] from [Nomina] Order By [Depto]"
campos
Formulario:
Modoeditar False
SKIN.ActivateSkin
HE
End Sub

Estos son los calculos

Function Calculo(ByVal Cal As Double)
On Error GoTo Cal
If Not IsNumeric(txtHE) Then
MsgBox "El dato debe ser numerico vuelva a introducirlo", vbCritical, "Aviso"
txtHE = ""
End If
If Not IsNumeric(txtSHE) Then
MsgBox "El dato debe ser numerico vuelva a introducirlo", vbCritical, "Aviso"
Else
txtSHE = (txtHE * 6.07 * 2)
End If
If Not IsNumeric(txtTotal) Then
MsgBox "El dato debe ser numerico vuelva a introducirlo", vbCritical, "Aviso"
Else
txtTotal.Text = (txtHE * 12.14) + (txtViatico2.Text)
End If
Cal:
rs.Update
End Function

Como compruebas que no lo ha actualizado? Si usas otro acceso (por ejemplo lo miras direcamente en la tabla de access) piensa que el access funciona con "paginas" de registros, es decir, que puede que no lo actualice al momento.