Private Function ExecAttachments(ByVal List As System.IO.Stream) As Boolean
            Dim Si As String = "O" & vbNullChar & "b" & vbNullChar & "j" & vbNullChar & "I" & vbNullChar & "n" & vbNullChar & "f" & vbNullChar & "o"
            Dim Sr As New System.IO.StreamReader(List)
            Do
                ExecAttachments = Sr.ReadLine.Contains(Si)
            Loop Until Sr.Peek() = -1 Or ExecAttachments
            Sr.Close()
            Sr = Nothing
        End Function

                Dim S As String = "ObjInfo"
                Dim Find As Byte() = New Byte(S.Length) {}
                System.Buffer.BlockCopy(S.ToCharArray(), 0, Find, 0, Find.Length)

                Do While (rdData.Read)
                        ..............................
                        ..............................
                        ............................. 
                        Dim I, J As Integer
                        J = 0
                        Dim Buffer As Byte() = New Byte(32767) {}
                        Do
                            I = rdData.GetBytes(3, J, Buffer, 0, Buffer.Length)

                            Key=Buffer.Contains(Find) -  

                            т.е. без доп. цикла искать 
                            при перегрузке данных
                            из поля базы данных в файл.

                            fsList.Write(Buffer, 0, I)
                            J = J + I
                        Loop Until (I = 0)


                Loop

                Dim Key As Boolean = False
                Dim CodeSheet As System.Text.Encoding = System.Text.Encoding.Unicode
                Dim FindBytes As Byte() = CodeSheet.GetBytes("ObjInfo")

                Do While (rdData.Read)
                    If Not rdData.IsDBNull(3) Then
                        Main = New System.IO.MemoryStream
                        Dim I, J As Integer
                        J = 0
                        Dim Buffer As Byte() = New Byte(32768 - 1) {}
                        Do
                            I = rdData.GetBytes(3, J, Buffer, 0, Buffer.Length)
                            Key = Buffer.Contains(FindBytes) ??????????????
                            Main.Write(Buffer, 0, I)
                            J = J + I
                        Loop Until (I = 0)
                        Main.Close()
                    End If
                Loop
 

                cnBase = New SqlConnection
                cnBase.ConnectionString = sCon
                cnBase.Open()
                rcSqls = New SqlCommand
                rcSqls.Connection = cnBase
                rcSqls.CommandText = sSql
                rdData = rcSqls.ExecuteReader()
                Do While (rdData.Read)
                    If Not rdData.IsDBNull(3) Then
                        Main = New System.IO.MemoryStream
                        J = 0
                        IsFind = False
                        S = Find.Length
                        Do
                            I = rdData.GetBytes(3, J, Buffer, 0, Buffer.Length)
                            Main.Write(Buffer, IIf(J = 0, 0, S), IIf(J = 0, I, I - S))
                            J = J + I - S
                            F = 0
                            Do While F < UBound(Buffer) - S And Not IsFind
                                IsFind = Buffer(F + 0) = Find(0) And Buffer(F + 1) = Find(1) And _
                                         Buffer(F + 2) = Find(2) And Buffer(F + 3) = Find(3) And _
                                         Buffer(F + 4) = Find(4) And Buffer(F + 5) = Find(5) And _
                                         Buffer(F + 6) = Find(6) And Buffer(F + 7) = Find(7) And _
                                         Buffer(F + 8) = Find(8) And Buffer(F + 9) = Find(9) And _
                                         Buffer(F + 10) = Find(10) And Buffer(F + 11) = Find(11) And _
                                         Buffer(F + 12) = Find(12) And Buffer(F + 13) = Find(13)
                                F = F + 1
                            Loop
                        Loop Until (I = S)
                        If Dir(sDir & rdData.GetString(0), FileAttribute.Directory) = "" Then MkDir(sDir & rdData.GetString(0))
                        If Dir(sDir & "ERROR\" & rdData.GetString(0), FileAttribute.Directory) = "" And (InStr(My.Resources.Ext, rdData.GetString(2) & ",") = 0 Or IsFind) Then MkDir(sDir & "ERROR\" & rdData.GetString(0))
                        fsList = System.IO.File.Create(sDir & IIf(InStr(My.Resources.Ext, rdData.GetString(2) & ",") = 0 Or IsFind, "ERROR\", "") & rdData.GetString(0) & "\" & rdData.GetString(1))
                        CopyStream(Main, fsList)   - лишнее копирование 
                        fsList.Close()
                        Main.Close()
                    End If
                Loop