Dim rsx As DAO.Recordset
               Dim myField As DAO.Field, myID As DAO.Field
               
               Dim N As Long
               
               '...
               i = 0
               Dim sName As String
               
                If Not rsx.EOF Then  'rsx.RecordCount >  0  Then
                 Set myField = rsx("Name")
                 Set myID = rsx("BN_id")
                 
                    rsx.MoveFirst '??? 'Все Exclusions по текущей Task
                    Do While rsx.EOF = False
                        Y =  1  'Поиск начинаем с первого символа строки G
                        N = 0
                        sName = Nz(myField.Value, vbNullString)
                        Do ' While Y < W 'Просматриваем всю строку поля на текущий Exclusion до конца
                            N = InStrB(Y, G, rsx("Name"))
                            If N > 0 Then 'Нашли Exclusion
                              '  N = (N \ 2) + (N Mod 2) - это если не хочешь в байтах считать
                                A8(i, 0) = N 'Координата начала Exclusion
                                A8(i,  1 ) = N + LenB(sName) 'Len(rsx("Name")) - 1   'Координата конца Exclusion
                                A8(i,  2 ) = myID.Value 'rsx("BN_id") 'Код брэнда
                                Y = N + LenB(sName) 'Len(rsx("Name"))
                                i = i + 1
                            Else
                                Exit Do 'Выходим из этого цикла, т.к. этот Exclusion не нашли вообще
                            End If
                        Loop While N >  0 
                        rsx.MoveNext
                    Loop
                    X = X + i 'Количество найденных Exclusions
                End If

               Dim rsx As DAO.Recordset
               Dim myField As DAO.Field, myID As DAO.Field
               
               Dim N As Long
               
               '...'
               i =  0 
               Dim sName As String
               
                If Not rsx.EOF Then  
                 Set myField = rsx("Name")
                 Set myID = rsx("BN_id")
                 
                    rsx.MoveFirst '??? 'Все Exclusions по текущей Task
                    Do While rsx.EOF = False
                        Y =  1  'Поиск начинаем с первого символа строки G'
                        N =  0 
                        sName = Nz(myField.Value, vbNullString)
                        N = InStrB(Y, G, rsx("Name"))

                        Do While N >  0  
                              '  N = (N \ 2) + (N Mod 2) - это если не хочешь в байтах считать '              
                                A8(i,  0 ) = N 'Координата начала Exclusion'
                                A8(i,  1 ) = N + LenB(sName) 'Len(rsx("Name")) -   'Координата конца Exclusion''
                                A8(i,  2 ) = myID.Value 'rsx("BN_id") Код брэнда'
                                Y = N + LenB(sName) 'Len(rsx("Name"))'
                                i = i +  1 
                                X = X + i 'Количество найденных Exclusions'
                                N = InStrB(Y, G, rsx("Name"))                            
                        Loop      
                        rsx.MoveNext
                    Loop
                  
                End If

Dim lflDNameID as Long, lflDBNID as Long
  Dim aVars as Variant 'эта переменная будет массивом, в который читаем данные из рекордсета'
  
  Dim zRows as long 'счетчик фактически прочитанных строк таблицы'
  Dim iNdex as Long 'будет счетчиком цикла'
  Dim rsx As DAO.Recordset
               
  Dim N As Long
               
  '...'
  i =  0 
  Dim sName As String
   
  If Not rsx.EOF Then  
    lflDNameID=rsx.Fields("Name").CollectionIndex
    lflDBNID = rsx.Fields("BN_id").CollectionIndex 
    
    Do Until rsx.EOF
      aVars = rsx.GetRows( 300 ) ' читаем по 300 записей'
      zRows = UBound(aVars,  2 ) ' смотрим, сколько прочитали на самом деле'
      
      For iNdex =  0  TO zRows 'Цикл по прочитанным строкам рекордсета'
        Y =  1  'Поиск начинаем с первого символа строки G'
        N =  0 
        sName = Nz(aVars(lflDNameID,iNdex), vbNullString)

        N = InStrB(Y, G, sName)
        
        Do While N >  0  
        
          A8(i,  0 ) = N 'Координата начала Exclusion'
          A8(i,  1 ) = N + LenB(sName) 'Len(rsx("Name")) -   'Координата конца Exclusion''
          A8(i,  2 ) = aVars(lflDBNID,iNdex)  ' Код брэнда'
          Y = N + LenB(sName) 
          i = i +  1 
          X = X + i 'Количество найденных Exclusions'
          N = InStrB(Y, G, sName)                            
        Loop     

      Next iNdex
    Loop 

  End if