I am trying to add the number i have got in a textbox to a number in my database. Somone gave me this code but it does not seem to work

Dim mynewnumber As Integer
mynewnumber = myoldnumber + Text1.Text



Private Sub Command1_Click()
Data1.Recordset.Edit
Data1.recordest.score = myoldnumber
Text1.Text = mynewnumber
Data1.Recordset.score.myoldnumber = mynewnumber
Data1.recordest.Update


End Sub

Please can u help.
later mike