1-

Private Sub Form_Load()
DoCmd.Maximize
End Sub