How Do I Store A .PDF File In SQL Database Using Web Application...?

Imports System
Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration


Partial Class admin_home
    Inherits System.Web.UI.Page
    Dim con As New SqlConnection("Data Source=T-LAPTOP\SQLEXPRESS;Initial Catalog=ebook_demo_db;Integrated Security=True")
    Dim cmd As New SqlCommand

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click

        Dim filename As String = Path.GetFileName(FileUpload2.PostedFile.FileName)
        Dim contentType As String = FileUpload2.PostedFile.ContentType

        Using fs As Stream = FileUpload2.PostedFile.InputStream
            Using br As New BinaryReader(fs)
                Dim bytes As Byte() = br.ReadBytes(DirectCast(fs.Length, Long))
                Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
                Using con As New SqlConnection(constr)
                    Dim query As String = "Insert INTO book_tb values (@id, @name,@aname,@publish,@Data,@ver,@course)"
                    Using cmd As New SqlCommand(query)
                        cmd.Connection = con
                        cmd.Parameters.Add("@id", SqlDbType.Int).Value = TextBox5.Text
                        cmd.Parameters.Add("@Name", SqlDbType.NVarChar).Value = TextBox6.Text
                        cmd.Parameters.Add("@aname", SqlDbType.NVarChar).Value = TextBox7.Text
                        cmd.Parameters.Add("@publish", SqlDbType.DateTime).Value = TextBox8.Text
                        cmd.Parameters.Add("@Data", SqlDbType.VarBinary).Value = bytes
                        cmd.Parameters.Add("@ver", SqlDbType.TinyInt).Value = vbYesNo
                        cmd.Parameters.Add("@course", SqlDbType.NVarChar).Value = DropDownList2.SelectedValue
                        con.Open()
                        cmd.ExecuteNonQuery()
                        con.Close()
                    End Using
                End Using
                Response.Redirect("admin_home.aspx")
            End Using
        End Using
    End Sub
End Class