Private Sub File2SqlBlob(ByVal SourceFilePath As String, ByVal DocumentID As Integer)

        InsertRecordWithoutBinaryData(SourceFilePath, DocumentID)
        InsertBinaryData(SourceFilePath, DocumentID)

    End Sub

    Private Sub InsertRecordWithoutBinaryData(ByVal SourceFilePath As String, ByVal DocumentID As Integer)

        Try
        Dim strFileExt As String = New IO.FileInfo(SourceFilePath).Extension.Replace(".", "")
        Dim strAddRecordWithNoVarbinary As String = "INSERT INTO PDFTABLE([DOCUMENT ID], FILECODE, FILEEXT) VALUES(@DOCUMENTID, 0x0, @FILEEXT);"
        Dim cmdAddRecordWithNoVarBinary As New SqlClient.SqlCommand(strAddRecordWithNoVarbinary, cn)
        cmdAddRecordWithNoVarBinary.Parameters.AddWithValue("@DOCUMENTID", DocumentID)
        cmdAddRecordWithNoVarBinary.Parameters.AddWithValue("@FILEEXT", strFileExt)
        cn.Open()
        cmdAddRecordWithNoVarBinary.ExecuteNonQuery()
        cn.Close()
        Catch SQLEx As SqlClient.SqlException
            MsgBox("There has been an error importing " & SourceFilePath & " as Document ID: " & DocumentID & ". Please try to add this file again later.", MsgBoxStyle.OkOnly, "File Not Added to SQL")
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            If cn.State = ConnectionState.Open Then
                cn.Close()
            End If
        End Try

    End Sub

    Private Sub InsertBinaryData(ByVal SourceFilePath As String, ByVal DocumentID As Integer)

        Try
            Dim bufferLen As Long = 8040

            Dim strAppendRecordWithVarbinary As String = _
                "UPDATE PDFTABLE SET FILECODE .WRITE(@BYTES, @OFFSET, @LENGTH) WHERE [DOCUMENT ID] = @DOCUMENTID"
            Dim cmdAppendRecordWithVarbinary As New  _
                SqlClient.SqlCommand(strAppendRecordWithVarbinary, cn)
            Dim filecodeParm As SqlClient.SqlParameter = _
                cmdAppendRecordWithVarbinary.Parameters.Add("@BYTES", SqlDbType.VarBinary, bufferLen)
            Dim offsetParm As SqlClient.SqlParameter = cmdAppendRecordWithVarbinary.Parameters.AddWithValue("@OFFSET", 0)
            cmdAppendRecordWithVarbinary.Parameters.AddWithValue("@LENGTH", bufferLen)
            cmdAppendRecordWithVarbinary.Parameters.AddWithValue("@DOCUMENTID", DocumentID)

            Dim firstTimeThrough As Boolean = True
            Dim fs As IO.FileStream = New IO.FileStream(SourceFilePath, IO.FileMode.Open, IO.FileAccess.Read)
            Dim br As IO.BinaryReader = New IO.BinaryReader(fs)

            Dim buffer() As Byte = br.ReadBytes(bufferLen)
            Dim offset_ctr As Integer = 0

            cn.Open()
            Do While buffer.Length > 0
                If firstTimeThrough = False Then offsetParm.Value = DBNull.Value
                cmdAppendRecordWithVarbinary.CommandTimeout = 600
                filecodeParm.Value = buffer
                cmdAppendRecordWithVarbinary.ExecuteNonQuery()
                buffer = br.ReadBytes(bufferLen)
                firstTimeThrough = False
            Loop
            cn.Close()
        Catch SQLEx As SqlClient.SqlException
            MsgBox("There has been an error importing " & SourceFilePath & " as Document ID: " & DocumentID & ". Please try to add this file again later.", MsgBoxStyle.OkOnly, "File Not Added to SQL")
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            If cn.State = ConnectionState.Open Then
                cn.Close()
            End If
        End Try

    End Sub