OK... There may be a cleaner way to do it, but this is what I came up with.
Private Sub NewRec_Click()
On Error GoTo Err_NewRec_Click
DoCmd.GoToRecord , , acLast
DoCmd.GoToRecord , , acPrevious, 6
DoCmd.GoToRecord , , acNewRec
Me.Family_Number.SetFocus...