Public Function SumTypeProduct(myRng As Range)
    Dim i As Integer
    Dim mySum As Integer, myStr As String
    For i = 1 To 10
        mySum = WorksheetFunction.SumIfs(myRng.Offset(0, 2), myRng, i) + _
            WorksheetFunction.SumIfs(myRng.Offset(0, 5), myRng.Offset(0, 3), i) + _
            WorksheetFunction.SumIfs(myRng.Offset(0, 8, myRng.Offset(0, 6), i)
        If mySum > 0 Then: myStr = myStr & i & " - " & mySum & "; "
    Next
    MsgBox myStr
End Function

If rs.EOF Then
    'Запись не существует
Else
    'Запись существует
End If

Set rs = New ADODB.Recordset
With rs
    .LockType = adLockOptimistic: .CursorType = adOpenKeyset
    .Source = "SELECT * FROM Товары WHERE Код_Товара=" & myCod
    Set .ActiveConnection = cn: .Open
    If (запись существует) Then: GoTo a:
        .AddNew
a:
        .Fields("Цена_Товара").Value = 3
        .Update
        .Close
End With