I figured it out myself finally....
Here is the solution
Private Sub SaveChanges_Click()
On Error GoTo Err_SaveChanges_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "[New2]"...