Actualizar una tabla con una funcion

Hola deseo realizar lo siguiente en un formulario tengo 3 cuadros de texto enlazados a una tabla, estos cuadros de textos capturan los datos ingresados. El tercer cuadro de texto es el que deseo que muestre la respuesta del calculo al abrir el formulario pero lo deseo hacer por medio de una sub
mando codigo
Private Sub Form_Load()
Dim consulta As String
consulta = "UPDATE calculos SET calculos.[respuesta] =xx"
CurrentDb.Execute consulta
End Sub
este es el sub que es donde se realiza el calculo, no se si esta correcto
Private Function xx()
Dim respuesta2 As String
respuesta2 = [dato1] + [datos2]
xx = respuesta2
End Function