Tiff File Corrupted After Reading From Blob Column

I use this code to get Tiff files from db , but output file seems to be corrupted :

Dim pubsConn As SqlConnection = New SqlConnection("Server=(local);uid=sa2;pwd=sony;database=pubs;")
        Dim logoCMD As SqlCommand = New SqlCommand("SELECT pub_id, logo FROM pub_info", pubsConn)

        Dim fs As FileStream                 ' Writes the BLOB to a file (*.bmp).
        Dim bw As BinaryWriter               ' Streams the binary data to the FileStream object.

        Dim bufferSize As Integer = 100      ' The size of the BLOB buffer.
        Dim outbyte(bufferSize - 1) As Byte  ' The BLOB byte() buffer to be filled by GetBytes.
        Dim retval As Long                   ' The bytes returned from GetBytes.
        Dim startIndex As Long = 0           ' The starting position in the BLOB output.

        Dim pub_id As String = ""            ' The publisher id to use in the file name.

        ' Open the connection and read data into the DataReader.
        pubsConn.Open()
        Dim myReader As SqlDataReader = logoCMD.ExecuteReader(CommandBehavior.SequentialAccess)

        Do While myReader.Read()
            ' Get the publisher id, which must occur before getting the logo.
            pub_id = myReader.GetString(0)
           
            ' Create a file to hold the output.
            fs = New FileStream("\Server1shared1logo" & "KK" & ".tiff", FileMode.OpenOrCreate, FileAccess.Write)
            bw = New BinaryWriter(fs)


            ' Reset the starting byte for a new BLOB.
            startIndex = 0

            ' Read bytes into outbyte() and retain the number of bytes returned.
            retval = myReader.GetBytes(1, startIndex, outbyte, 0, bufferSize)

            ' Continue reading and writing while there are bytes beyond the size of the buffer.
            Do While retval = bufferSize
                bw.Write(outbyte)
                bw.Flush()

                ' Reposition the start index to the end of the last buffer and fill the buffer.
                startIndex += bufferSize
                retval = myReader.GetBytes(1, startIndex, outbyte, 0, bufferSize)
            Loop

            ' Write the remaining buffer.
            bw.Write(outbyte, 0, retval - 1)
            bw.Flush()
            ' Close the output file.
            bw.Close()
            fs.Close()
        Loop

        ' Close the reader and the connection.
        myReader.Close()
        pubsConn.Close()

        Me.Div1.InnerHtml = ("<embed height=650 width=100% toolbar='' src= '" & "\Server1shared1logoKK.tiff" & "' type='application/x-alternatiff'>")