[madljna]

if not rs.eof then
do while not rs.eof
rs.movenext
loop
else
msgbox "no records found"
rs.cancelupdate
exit sub
end if