[VB.NET] Errore trasferimento file via ftp quando è di grandi dimensioni

[Cavaliere Nero]

Buongiorno a tutti. Utilizzo questo codice per inviare un file a un server ftp, facendo delle prove con un file di testo tutto funzionava perfettamente, poi ho provato a trasferire un file Access di 40,4MB e mi da il seguente errore: "Connessione sottostante chiusa: Errore imprevisto durante un'operazione di ricezione.." sull'istruzione: clsStream.Close()

Il codice è:

Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://indirizzo/prova/file.ext"), System.Net.FtpWebRequest)
clsRequest.Credentials = New System.Net.NetworkCredential("user", "password")         
clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile               
Dim bFile() As Byte = System.IO.File.ReadAllBytes(System.AppDomain.CurrentDomain.BaseDirectory() & cartella & "\" & file & ".agp")        
Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()
clsStream.Write(bFile, 0, bFile.Length)         
clsStream.Close()         
clsStream.Dispose()