

rs.MoveFirst
Result=rs.Fields(0).Value


dim cnt as long
rs.movelast 'для получения точного кол-ва надо перейти к последней записи
cnt=rs.recordcount

If (.EOF Or .BOF) Then
'Нет записей
else
'есть записи
.MoveFirst
...
end ifСейчас этот форум просматривают: AhrefsBot и гости: 13