Call DoCmd.GoToRecord(, "", acNewRec)
Call DoCmd.RunCommand(acCmdRecordsGoToNew)
Call DoCmd.RunCommand(acCmdSaveRecord)
Call DoCmd.RunCommand(acCmdDeleteRecord)
Call DoCmd.RunCommand(acCmdUndo)
Now Working