Жадные datagrid+recordset - VB

Формулировка задачи:

Всем здравствуйте. Столкнулся с интересной проблемой, которую не могу решить уже второй день. У меня есть программа, написанная достаточно давно. В последнее время пользователи начали жаловаться на то, что при достаточно продолжительной работе программа начинает сильно тормозит. Пользователям я особо не верил, пока сам не проверил - действительно происходит чтото непонятное. При работе программа все больше и больше откушивает оперативной памяти и в результате просто напросто виснет. После нескольких часов изысканий и тестов пришел к следующему:
создал форму, кинул на него трудбгрид и 2 баттона. Ниже привожу оч простенький код формы:
Код Visual Basic

Dim rs1 As ADODB.Recordset
 
Private Sub Command1_Click()
 
Set rs1 = New ADODB.Recordset
rs1.Open "SELECT * FROM MyTable", adolocal, adOpenStatic, adLockOptimistic
dg1.DataSource = rs1 
 
End Sub
 
Private Sub Command2_Click()
 
Dim i As Integer
For i = 0 To 100
   adolocal.Execute "INSERT INTO MyTable ..."
    rs1.Requery
Next i
 
End Sub

Ну вот как бы и совсем все просто. На первой кнопке заполняю грид данными из таблицы. Вторая кнопка имитирует пользователя, которые добавляет 100 записей в таблицу, при этом рекордсет, ну и как следствие грид обновляется, пользователь видит результат своих действий. При каждом нажатии на кнопку 2 эта простенькая формочка "внаглую отжирает" по 3 метра оперативы. Если вот этот код убрать

dg1.DataSource = rs1

то все работает отлично. Но, как вы понимаете, бедный пользователь не видит результат своего труда.
И вот тут я совсем теряюсь. Код элементарный, вродеб какбы все должно работать и не работает. Раньше подключения были на адошных объектах, без рекордсетов, все работало стабильно, но оч медленно, поэтому к этому варианту не хочется возвращаться.

Решение задачи: «Жадные datagrid+recordset»

textual
                            Листинг программы 
                        
                            set rs = Nothing