Access - Maximizar formulario

Private Sub cmdAbrir_Click()

    Dim Acc As Access.Application

    Set Acc = CreateObject("Access.Application") 'Creamos un nuevo objeto Aplicación de Access

    Acc.Visible = True 'Lo hacemos visible

    Acc.OpenCurrentDatabase ("BaseDeDatos.mdb") 'Abrimos la base de datos

    Acc.DoCmd.OpenForm "Formulario" 'Abrimos el formulario

    Acc.DoCmd.Maximize 'Lo maximizamos

    Set Acc = Nothing 'Limpiamos la variable

    DoCmd.Quit acQuitSaveAll 'Y salimos guardando todo, por si acaso

End Sub