FindFirst и удаление данных в связанных таблицах - VB

Формулировка задачи:

Есть несколько таблиц, в которых данные пересекаются на фамилии. Удаляю в одной таблице запись, следовательно,хочу удалить все связанные данные в других таблицах. Ищу через FindFirst. Удаляется правильно. Но когда данные уже отсутствуют, удаляет что ни попадя. Подозреваю, что первую запись все время. Как же указать, что такой фамилии НЕТ и все остальное надо оставить? Обычно пишу if not rsbanche.eof and not rsbanche.bof 'ограничение, типа...если до конца дошел и не нашел спасиба

Решение задачи: «FindFirst и удаление данных в связанных таблицах»

textual
                            Листинг программы 
                        

                            CON.Execute 'delete * from Таблица1 where [Код]=' & Код
CON.Execute 'delete * from Таблица2 where [Код]=' & Код
...
CON.Execute 'delete * from Таблица3 where [Код]=' & Код
                        