SQL Filestream in VB 2010 --- Access Denied error

I'm getting an access denied error when I trying to copy a file that I load into a filestream
that I then send to a byte array which is then sent to a Stored Procedure on an SQL Server 2008.

The SQL Server procedure works through a local querry on the SQL Server. The filestream is also
poperly configured and setup.

Here is my vb code... I also included a copy of the error I get as a JPG.

    Public Shared Sub WriteSQLFileStream(ByVal pathSource As String)
        'Dim cnn As SqlConnection
        Dim tx As SqlTransaction = Nothing
        Dim Description As New String("TEST")
        Try
            Using cnn As New SqlConnection(My.Settings.RVSoftMainDataConnectionString)

                'Open a connection and start a transaction
                cnn.Open()
                tx = cnn.BeginTransaction

                'Insert empty blob
                Dim cmd As New SqlCommand("FSInsert", cnn, tx)
                cmd.CommandType = CommandType.StoredProcedure
               
                Dim r As SqlDataReader = cmd.ExecuteReader(CommandBehavior.SingleRow)

                'Read the id and sql path back from the procedure
                r.Read()
                Dim ID As String = r(0).ToString
                Dim path As String = r(1).ToString
                r.Close()

                'Get the transaction token, required for filestream operations
                Dim cmd2 As New SqlCommand("SELECT GET_FILESTREAM_TRANSACTION_CONTEXT()", cnn, tx)
                Dim obj As Object = cmd2.ExecuteScalar

                Dim txCtx As Byte()
                txCtx = CType(obj, Byte())

                'Open the special managed "SQLFileStream" and write bytes
                Try
                    Using fsSource As FileStream = New FileStream(pathSource, _
                        FileMode.Open, FileAccess.Read)
                        ' Read the source file into a byte array.
                        Dim bytes() As Byte = New Byte((fsSource.Length) - 1) {}
                        Dim numBytesToRead As Integer = CType(fsSource.Length, Integer)
                        Dim numBytesRead As Integer = 0

                        While (numBytesToRead > 0)
                            ' Read may return anything from 0 to numBytesToRead.
                            Dim n As Integer = fsSource.Read(bytes, numBytesRead, _
                                numBytesToRead)
                            ' Break when the end of the file is reached.
                            If (n = 0) Then
                                Exit While
                            End If
                            numBytesRead = (numBytesRead + n)
                            numBytesToRead = (numBytesToRead - n)

                        End While
                        numBytesToRead = bytes.Length

                        'Write file to SQLStream
'''' Obviously this is where I get an error! ''''
                        Dim fs As New SqlTypes.SqlFileStream(path, txCtx, FileAccess.Write)
                        fs.Write(bytes, 0, numBytesToRead)
                        fs.Close()

                        tx.Commit()
                    End Using

                Catch ioEx As FileNotFoundException
                    Console.WriteLine(ioEx.Message)
                End Try
            End Using

        Catch ex As Exception
            'tx.Rollback()
            MessageBox.Show("The files stream operation failed ... Error: " & ex.ToString)
        End Try
    End Sub


If you have any comments about other parts of the code, I'm open to suggestion and more efficient code!

Thanks for your help!

Patrick Miron
error.jpg