For j =  1  To КолПолей -  1 
        
        Set rs1 = New ADODB.Recordset
        
        rs1.Open "Select * From  Таблица1 where ID=" & array1(j) & " and ID_PLU=" & array2(j) & "  ", cn1
            
        If Not rs1.EOF Then
            cn1.Execute ("UPDATE Таблица1 Set Таблица1.Value=" & array3(j) & "  where where ID=" & array1(j) & " and ID_PLU=" & array2(j)  & "  ", cn1
        Else
            cn1.Execute ("INSERT INTO Таблица1 VALUES (" & array1(j) & " , " & array2(j) " , " & array3(j) & " ")
        End If
        
        Set rs1 = Nothing
        
Next j