Доброго времени!
Как можно проверить существование записи в Recordset, соответствующей запросу, чтобы в зависимости от результата проверки добавить или изменить запись?

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

If rs.EOF Then

    'Запись не существует

Else

    'Запись существует

End If