Binary Files

this code works fine to display images, but when I change the strFileName to a .PDF document it doesn't work...is there something else I need to do to view a .PDF?

Code:

---

Const strFileName As String = "C:\Inetpub\wwwroot\pbss\interstate.gif"
        Dim objStream As Stream = File.Open(strFileName, FileMode.Open)
        Dim buffer(objStream.Length) As Byte
        objStream.Read(buffer, 0, objStream.Length)
        objStream.Close()
        Response.BinaryWrite(buffer)

---

How can I get the .PDF document to open with Adobe? The way it is now, it's trying to open in the browser...

well, I got it open in Adobe, but am getting an error in adobe. I think I'm getting the worng file size. I'm using: FileByteArray = objDR("bid_document") but it's returning an inaccurate file size...does anyone know how to get the file size of a blob?