Download file con vb.net

[fabio309]

Come già sottolineatoin un precedente post il metodo

Response.Clear()
Response.ContentType = "application/octet-stream"
Response.AddHeader("Content-Disposition", _
 "attachment; filename=""" & file.Name & """")
Response.Flush()
Response.WriteFile(filepath)

per fare il download dei file può andar bene fino a che si scaricano file fino a 50M
quando poi provo a scaricare file di dimensioni superiori non funziona
cercando su internet ho trovato questo esempio

  Dim objStream
  Set objStream = Server.CreateObject("ADODB.Stream")
  
  objStream.Type = adTypeBinary
  objStream.Open
  objStream.LoadFromFile Server.MapPath("prova.zip")
  
  'Al browser
  Response.ContentType = "application/x-zip-compressed"
  Response.BinaryWrite objStream.Read
  objStream.Close
  Set objStream = Nothing

Ma non funziona mi da errore alla riga
Response.BinaryWrite objStream.Read
Operazione non consentita nel contesto corrente

come posso fare per aggiustare il codice
Grazie a tutti