Быстрый код — это чистый код. Необходимо убедиться, что по окончании работы с наборами записей они будут закрыты, а объектам, когда они будут не нужны, присвоены пустые значения. Ненужные объекты поглощают значительный объем памяти, который мог бы быть использован другими частями приложения.
rs.Close
Set db=Nothing