Во-первых, не
a = sel$ Like "'ова'"
а
sel$ Like "'*ова'"
Во-вторых, я почему-то не вижу команду перехода с записи на запись... Хотя верю, что она там есть.
В-третьих, я не понимаю, что такое tempDB и как оно синхронизируется с этим рекордсетом.
В-четвертых, по этому алгоритму фамилии Казанова, Корова, Сова всегда будут женскими.

shadyт.е. позицию первого пробела в строке я нашел правильно? и 3 символа в лево будут проверяться правильно?
Ой... Нет-нет. Я эту программу вообще не очень понимаю. Там куча переменных, которые обозначают непонятно что. Например, NumLeft.

Кроме того, обращение InStr("n_pok", " ") выдаст 0, потому что в строке "n_pok" нет пробелов. В общем, если надо проверить, что перед первым пробелом стоят буквы "ова", то я бы сделал так:

pozition=instr(XXX," ")
if pozition>0 then
if left(XXX,pozition-1) like "*ова" then
...
end if
end if

shadytempDB - это временная таблица, в которой есть 40 строк, она пока просто для экспериментов
То есть проверяем одну строку, а апдейт делаем во всех сорока? И так 40 раз?

А команды перехода на другую запись, похоже, все-таки нету...

Короче, проход по рекордсету обычно делают так:

do until rs_fio.eof
...
rs_fio.movenext
loop

Итого примерно так:

где XXX - то поле, где видит фио.

...т.е. где сидит фио.

Насчет edit - если это рекордсет ADO, то я просто не помню синтаксис. Пусть кто-нибдь подскажет.

Насчет 3 позиций - имеется в виду вот что:
пробел найден в позиции 8, значит само слово Иванова имеет длину 7, вот его мы и проверяем, кончается ли оно на "ова".

AndreyMpИдиоты.
И Вам добрый вечер.

shadyИванов, заканчивается на "нов", соответственно мужчина, Петрова, заканчивается на "ова" соответственное женщина
Это неверно, примеры см. выше.

Но поскольку это вообще головная боль начальства, то здесь можно продолжать обсуждать задачу, смирившись с тем, что она решается неверно.

Split - это не позиция!