ник: час
нет это не нормально
надо раскомпилить или добавитьстроки
With rst
.MoveLast 'Перемещаемся к ппоследней записи
.MoveFirst 'Перемещаемся к первой записи
и вот тут немного не так
надо так
'Закрываем рекордсет и базу данных
rst.Close
Set rst = Nothing'Очистка памяти
dbs.Close
Set dbs = Nothing 'Очистка памяти
End Sub