خطا في تحميل ملف من قاعده بيانات

Dim strCaption As String = Me.up1.FileName

Dim mem As IO.Stream = Me.up1.PostedFile.InputStream

Dim arrayByte As Byte() = New Byte(mem.Length) {}

mem.Read(arrayByte, 0, arrayByte.Length)

If BTAdd.Text.Equals("اضافة") Then

If DA.AddEditeBook("-1", TxtTitle.Text, DPcetogry.SelectedValue, txtsum.Text, txtdetails.Text, RB.SelectedIndex = 0, imgpath, arrayByte, strCaption) > 0 Then

End If

lbmsg.Text = "تمت الاضافه"

Else

If DA.AddEditeBook(Request.QueryString("id"), TxtTitle.Text, DPcetogry.SelectedValue, txtsum.Text, txtdetails.Text, RB.SelectedIndex = 0, imgpath, arrayByte, strCaption) > 0 Then

lbmsg.Text = "تم التعديل "

Response.Redirect("ViewDeleteBook.aspx")

Dim sqlCommand As New SqlClient.SqlCommand

Dim ConString As String = ("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True")

Dim SqlCon As New SqlClient.SqlConnection(ConString)

With sqlCommand

.Connection = SqlCon

.CommandType = CommandType.Text

.CommandText = "Select * from Book where ID=1"

End With

Dim AdapterSQL As New SqlClient.SqlDataAdapter(sqlCommand)

Dim dTable As New DataTable()

AdapterSQL.Fill(dTable)

Dim ArrayByte() As Byte = CType(dTable.Rows(0).Item("MyFile"), Byte())

Response.ContentType = "application/octet-stream"

Response.AddHeader("Content-Length", ArrayByte.Length)

Response.AddHeader("Content-Disposition", "inline;filename=" & dTable.Rows(0).Item("Caption"))

' Response.AddHeader("Content-Disposition", "attachment;filename=" & dTable.Rows(0).Item("Caption"))

Response.BinaryWrite(ArrayByte)

Response.Flush()

Response.Close()