Imports System.IO
Private Sub DisplayPdfFromBLOB(ByVal adt As DataTable)
Dim blob() As Byte
Try
blob = CType(adt(0)("form_document"),
Byte())
Dim ms As New MemoryStream(blob)
Response.ContentType = "application/pdf"
ms.WriteTo(Response.OutputStream)
Response.Flush()
Catch ex As Exception
Throw ex
End Try
End Sub