Dim ImageStream As New System.IO.MemoryStream
        Dim arImage() As Byte
        Dim strSQL As String

        Dim myIMG As System.Drawing.Image = System.Drawing.Image.FromStream(File1.PostedFile.InputStream)

        myIMG.Save(ImageStream, System.Drawing.Imaging.ImageFormat.Jpeg)


        ReDim arImage(CInt(ImageStream.Length))

        arImage = ImageStream.GetBuffer


        strSQL = "Update Photos PicMedium=@DataMedium WHERE UID=" & UID.ToString

        Dim Command As New SqlCommand(strSQL, clsSQL.Connection)

        With Command
            .Parameters.Add("@DataMedium", SqlDbType.Image)
            .Parameters("@DataMedium").Value = arImage

            .ExecuteNonQuery()
        End With