Storing A PDF File Into SQL Server 2005?

Does anyone know whats wrong with my code?
~Nothing wrong with my code, code is correct!

I let it run and it keeps saying that the file does not exist. Seem as though, the path of my file doesn't exist! Any suggestions on how to program the path of my file so I can be able to retreive it such as open the file and access the file?

CODE:


Imports System

Imports System.Data

Imports System.Data.Sql

Imports System.Data.SqlClient

Imports System.Data.SqlTypes

Imports System.Web

Imports System.Configuration

Imports System.Reflection

Imports System.Security.Permissions.FileIOPermission

Imports System.IO

Imports System.Collections

Imports System.Collections.Generic

Imports System.Windows.Forms

Imports System.Security.Permissions

Imports System.Windows.Forms.Form

'<Assembly: PermissionSetAttribute(SecurityAction.RequestMinimum, Name:="Local Intranet")>

'<Assembly: PermissionSetAttribute(SecurityAction.RequestOptional, Unrestricted:=True)>



Public Class Form1

Inherits Form

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

Dim SQL As String

Dim rawData() As Byte

Dim RowsAffected As Integer

Dim filename As String

filename = "H:My Documentsabc.pdf"

Try

If System.IO.File.Exists(filename) Then

Dim filePermission As New System.Security.Permissions.FileIOPermission(System.Security.Permissions.FileIOPermissionAccess.Read, System.Security.AccessControl.AccessControlActions.View, filename)

filePermission.Demand()

Else

MessageBox.Show("file does not exist", "File", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Dim fs As FileStream

fs = New FileStream(filename, FileMode.Open, FileAccess.Read)

Dim FileSize = Convert.ToInt32(fs.Length)

rawData = New Byte(FileSize) {}

fs.Read(rawData, 0, FileSize)

SQL = String.Format("INSERT INTO test_file_save(FILE_ID, FILE_NAME, FILE_SIZE, CREATE_FILE) VALUES({0}, {1}, {2}, {3})", _

1, filename, FileSize, rawData)

Using Conn As New SqlConnection("server=1234;" _

& "uid=F_User;" _

& "pwd=password;" _

& "database=Database")

Using Cmd As New SqlCommand("sp_InsertPDF", Conn)

Cmd.CommandType = CommandType.StoredProcedure

Cmd.Parameters.Add(New SqlParameter("@FILE_ID", 1))

Cmd.Parameters.Add(New SqlParameter("@FILE_NAME", filename))

Cmd.Parameters.Add(New SqlParameter("@FILE_SIZE", FileSize))

Cmd.Parameters.Add(New SqlParameter("@CREATE_FILE", rawData))

fs.Close()

Conn.Open()

RowsAffected = Cmd.ExecuteNonQuery()

End Using

End Using

MessageBox.Show("File Inserted into database successfully!", _

"Success!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

Catch ex As Exception

MessageBox.Show("There was an error: " & ex.Message, "Error", _

MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try







End Sub

End Class