()Private Sub Form_Open
DoCmd.Maximize
End Sub