Visual Basic - Subir archivo pdf a una base de datos

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        Try

            ' Leer el archivo binario especificado en el control TextBox.

            Dim conexion As SqlConnection

            Dim arx As Byte() = ReadBinaryFile(TextBox4.Text)

            ' Establecemos una conexión para conectarnos 

            ' a la base de datos de SQL Server, utilizando

            ' la seguridad integrada de Windows NT.

            '

            conexion = New SqlConnection()

            conexion.ConnectionString = "Data Source=Josep-Pc\sqlexpress;Initial Catalog=Desplacaments;Integrated Security=SSPI;"

            conexion.Open()

            Dim cmd As SqlCommand = conexion.CreateCommand()

            ' Crear la consulta T-SQL para insertar un nuevo registro.

            ' 

            cmd.CommandText = "INSERT INTO DietesConcpetes (arxiu) VALUES (@arx);"

            ' La función ReadBinaryFile tal cual se encuentra implementada no devolverá un valor Nothing,

            ' pero muestro cómo especificar un valor NULL al parámetro de entrada si el valor del campo

            ' binario fuese Nothing. Para insertar un valor NULL, el campo de la tabla lo tiene que permitir.

            '

            cmd.Parameters.AddWithValue("@arx", If(arx IsNot Nothing, arx, CObj(DBNull.Value)))

            Dim n As Integer = cmd.ExecuteNonQuery()

            If (n > 0) Then

                MessageBox.Show("Document pujat correctament.")

            Else

                MessageBox.Show("No hem pogut pujar el document.")

End If

        Catch ex As Exception

            ' Se ha producido un error.

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Private Function ReadBinaryFile(p1 As String) As Byte()

        Throw New NotImplementedException

    End Function