Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AddEmployee("1", "C:\Документ Microsoft Word.docx")
    End Sub

    Public Shared Sub AddEmployee( _
            ByVal lastName As String, _
            ByVal DOCFilePath As String)

        Dim DOC() As Byte = GetDOC(DOCFilePath)

        Dim command1 As SqlCommand = New SqlCommand( _
          "INSERT INTO tab_report (name_report, file_report) " & _
          "Values(@LastName, @DOC)", connection)

        command1.Parameters.Add("@LastName", _
          SqlDbType.NVarChar, 20).Value = lastName
        command1.Parameters.Add("@DOC", _
          SqlDbType.Binary, DOC.Length).Value = DOC

        connection.Open()
        command1.ExecuteNonQuery()
        MsgBox("")
    End Sub

    Public Shared Function GetDOC(ByVal filePath As String) As Byte()
        Dim stream As FileStream = New FileStream( _
           filePath, FileMode.Open, FileAccess.Read)
        Dim reader As BinaryReader = New BinaryReader(stream)

        Dim DOC() As Byte = reader.ReadBytes(stream.Length)

        reader.Close()
        stream.Close()

        Return photo
    End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' Assumes that connection is a valid SqlConnection object.
        Dim command As SqlCommand = New SqlCommand( _
          "SELECT id_report, file_report FROM tab_report", connection)

        ' Writes the BLOB to a file (*.bmp).
        Dim stream As FileStream
        ' Streams the binary data to the FileStream object.
        Dim writer As BinaryWriter
        ' The size of the BLOB buffer.
        Dim bufferSize As Integer = 100
        ' The BLOB byte() buffer to be filled by GetBytes.
        Dim outByte(bufferSize - 1) As Byte
        ' The bytes returned from GetBytes.
        Dim retval As Long
        ' The starting position in the BLOB output.
        Dim startIndex As Long = 0

        ' The publisher id to use in the file name.
        Dim pubID As String = ""

        ' Open the connection and read data into the DataReader.
        connection.Open()
        Dim reader As SqlDataReader = command.ExecuteReader(CommandBehavior.SequentialAccess)

        Do While reader.Read()
            ' Get the publisher id, which must occur before getting the logo.
            pubID = reader.GetInt32(0)

            ' Create a file to hold the output.
            stream = New FileStream( _
              "logo" & pubID & ".doc", FileMode.OpenOrCreate, FileAccess.Write)
            writer = New BinaryWriter(stream)

            ' Reset the starting byte for a new BLOB.
            startIndex = 0

            ' Read bytes into outByte() and retain the number of bytes returned.
            retval = reader.GetBytes(1, startIndex, outByte, 0, bufferSize)

            ' Continue while there are bytes beyond the size of the buffer.
            Do While retval = bufferSize
                writer.Write(outByte)
                writer.Flush()

                ' Reposition start index to end of the last buffer and fill buffer.
                startIndex += bufferSize
                retval = reader.GetBytes(1, startIndex, outByte, 0, bufferSize)
            Loop

            ' Write the remaining buffer.
            writer.Write(outByte, 0, retval - 1)
            writer.Flush()

            ' Close the output file.
            writer.Close()
            stream.Close()
        Loop

        ' Close the reader and the connection.
        reader.Close()
        connection.Close()
    End Sub