For i = 1 To rs.RecordCount

s1 = "_" & rs.Fields(6) & "_"
s2 = "_" & rs.Fields(3) & "_"

If InStr(s1214, s1) > 0 Then  'точка
    If InStr(s18, s2) > 0 Then 'штрих
        With rs2
            .AddNew
            .Fields("kod_kurator") = rs.Fields(0)
            .Fields("kod_manager") = rs.Fields(1)
            .Fields("type_activ") = rs.Fields(2)
            .Fields("kod_18") = rs.Fields(3)
            .Fields("kod_25") = rs.Fields(4)
            .Fields("nameUslugi") = rs.Fields(5)
            .Fields("kod_upr") = rs.Fields(6)
            .Fields("kod_12") = rs.Fields(7)
            .Fields("kod_52") = rs.Fields(8)
            .Fields("kod_33") = rs.Fields(9)
            .Fields("kod_39") = rs.Fields(10)
            .Fields("kod_47") = rs.Fields(11)
            .Fields("kod_13") = rs.Fields(12)
            .Fields("kod_103") = rs.Fields(13)
            .Fields("kod_24") = rs.Fields(14)
            .Fields("kod_AFE") = rs.Fields(15)
            .Fields("recoverable") = rs.Fields(16)
            .Fields("kod_Cdelka") = rs.Fields(17)
            .Fields("kod_StatBud") = rs.Fields(18)
            .Fields("numberLot") = rs.Fields(19)
            .Fields("ZKprotocol") = rs.Fields(20)
            .Fields("kod_edizm") = rs.Fields(21)
            .Fields("kod_urovuslug") = rs.Fields(22)
            .Fields("cost") = rs.Fields(23)
            .Fields("valuta") = rs.Fields(24)
            .Fields("procNDS") = rs.Fields(25)
            .Fields("coefficient") = rs.Fields(26)
            .Fields("volume01") = rs.Fields(27)
            .Fields("sum01") = rs.Fields(28)
            .Fields("volume02") = rs.Fields(29)
            .Fields("sum02") = rs.Fields(30)
            .Fields("volume03") = rs.Fields(31)
            .Fields("sum03") = rs.Fields(32)
            .Fields("volume04") = rs.Fields(33)
            .Fields("sum04") = rs.Fields(34)
            .Fields("volume05") = rs.Fields(35)
            .Fields("sum05") = rs.Fields(36)
            .Fields("volume06") = rs.Fields(37)
            .Fields("sum06") = rs.Fields(38)
            .Fields("volume07") = rs.Fields(39)
            .Fields("sum07") = rs.Fields(40)
            .Fields("volume08") = rs.Fields(41)
            .Fields("sum08") = rs.Fields(42)
            .Fields("volume09") = rs.Fields(43)
            .Fields("sum09") = rs.Fields(44)
            .Fields("volume10") = rs.Fields(45)
            .Fields("sum10") = rs.Fields(46)
            .Fields("volume11") = rs.Fields(47)
            .Fields("sum11") = rs.Fields(48)
            .Fields("volume12") = rs.Fields(49)
            .Fields("sum12") = rs.Fields(50)
            .Fields("totalVolume") = rs.Fields(51)
            .Fields("totalSum") = rs.Fields(52)
            .Fields("NumDogKurator") = rs.Fields(53)
            .Update
        End With
    j = j + 1
    isum = isum + rs2.Fields("totalSum")
    End If
    If i < rs.RecordCount Then rs.MoveNext 'если переменная цикла не добралась до конца то двигаем рекордсет eXcel на следующую запись
    Next i ' Выходит next without for. Переношу if над Next появляется Else without if
    End If

Else

Adds = "update logtable set schifrKA='" & s2 & "', commentKA='неверное значение' "
DoCmd.RimSQL Adds
End If

If i < rs.RecordCount Then rs.MoveNext 'если переменная цикла не добралась до конца то двигаем рекордсет eXcel на следующую запись
Next i
Else

Adds = "update logtable set UPR='" & s1 & "', commentUPR='неверное значение' "
DoCmd.RimSQL Adds

If InStr(s18, s2) > 0 Then 'штрих

If i < rs.RecordCount Then rs.MoveNext 'если переменная цикла не добралась до конца то двигаем рекордсет eXcel на следующую запись
Next i
    Else
Adds = "update logtable set schifrKA='" & s2 & "', commentKA='неверное значение' "
DoCmd.RimSQL Adds
End If

If i < rs.RecordCount Then rs.MoveNext 'если переменная цикла не добралась до конца то двигаем рекордсет eXcel на следующую запись
Next i
End If

rs.Close
idone = 1
MsgBox "Загрузка в план прошла успешно." & vbNewLine & "Добавлено строк :" & j & vbNewLine & "Общая сумма добавленных записей :" & isum