Мониторинг количества строк в таблице

sSQL = "SELECT * FROM [Моя библиотека];"
Set rs = db.OpenRecordset(sSQL)
rs.MoveLast
rs.MoveFirst
MsgBox rs.RecordCount

Dim S_S 'строка условий отбора
Dim D, L 'значения диаметра и длины
 
'считывание данных с комбобоксов
Диаметры.SetFocus: D = Диаметры.Text
Длинны.SetFocus: L = Длинны.Text
'назначение текущей базы
Set dbs = CurrentDb
 
'если установлен флаг диаметры
If Флажок0.Value = -1 And D <> "" Then
'пишем в строку запроса условие
S_S = " WHERE Метизы.Diameter ='" & D & "'"
End If
'если установлен флаг длина
If Флажок2.Value = -1 And L <> "" Then
'в зависимости от содержания строки запроса пишем или дописываем условия
    S_S = IIf(S_S = "", " WHERE Метизы.Length ='" & L & "'", S_S & " And  Метизы.Length ='" & L & "'")
End If
 
'назначаем списку рекордсет запроса к таблице Метизы с условиием(условиями) отбора
Set Me.Результат_фильтра.Recordset = dbs.OpenRecordset("SELECT Метизы.Name,Метизы.Stall from Метизы " & S_S)

Option Compare Database
Sub Кнопка3_Click()
Dim i As Integer
i = 1
 
Do Until i > 999
sSQL = "select * from 1;"
Set rs = db.OpenRecordset(sSQL)
rs.MoveLast
rs.MoveFirts
MsgBox rs.RecordCount
i = i + 1
 Loop
 MsgBox rs.RecordCount
 
End Sub

Dim db 
Set db = CurrentDb

всего лишь оцениваю записи уже в самом запросе