با سلام.اون ارروری که میده ظاهراً میگه اطلاعاتی که از دیتابیس میخونین وجود ندارن.
شما بهتره به شرط بزاری که اگه تو دیتابیس چیزی بود عملیات رو انجام بده.باز اگه مشکل چیز دیگه ای هست کامل توضیح بده.
اینم شرط :
if not(rec3.bof and rec3.eof) or not(rec4.bof and rec4.eof) then
عملیات
end if

اینو یه تست بکن ببین حل میشه.