Auto Populate Text Fields

I am trying to auto populate a text box when i click on the button to add a new record. This is the code for the addnewsequence button.

Private Sub addnewsequence_Click()
On Error GoTo Err_addnewsequence_Click


DoCmd.GoToRecord , , acNewRec

Exit_addnewsequence_Click:
Exit Sub

Err_addnewsequence_Click:
MsgBox Err.Description
Resume Exit_addnewsequence_Click

End Sub


In this form is a text box called degree name that is link from the table degree. It autopopulates with the degree upon the sequence form first opening button clears the text box when i click add new sequence


any help greatly appreciated...
Thank you