Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub