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
Сейчас этот форум просматривают: Yandex-бот и гости: 131