Думаю, несколько напрасно грузите sdku.
Из исходного посыла ТС

"kol = DCount("*", Me.RecordsetClone, "F1=23")
понимаю что можно програмно сформировать новый запрос с дополнительным условием
"
вполне может следовать мысль сформировать recordset вида select count(*) where "F1=23"
и подсчитать -> .movelast -> .recordcount
Если по таблице есть хороший индекс по полю F1, это может оказаться быстрее цикла по рекордсету в памяти.
Особенно на выборке 500 000 записей)

То, что таких условий аж 9, выяснилось много позже)

Предложенное Панургом решение, думаю, должно полностью удовлетворить ТС.

Из интереса только позанудствую.
В примерной таблице "Dano" (1млн.записей) (Id- long, счетчик; F23 - long, indexed;F33 - string 255),
поле F23 - заполнено случайными числами от 0 до 19.
эта таблица является источником для ленточной формы, время подсчета примерно такое:
1)cnt=DCount("*", "Dano", "F23=" & CStr(keyValue))
3 ms
2)With Me.Form.RecordsetClone
Do While Not .EOF()
If (!F23 = keyValue) Then recCnt = recCnt + 1
.MoveNext
Loop
1450 ms
4)With Set rs = CurrentDb.OpenRecordset("SELECT * FROM Dano", dbOpenSnapshot)
Do While Not .EOF()
If (!F23 = keyValue) Then recCnt = recCnt + 1
.MoveNext
Loop
5600 ms
5)Set rs = CurrentDb.OpenRecordset("SELECT count(*) as cnt FROM Dano WHERE F23=" & CStr(keyValue), dbOpenSnapshot)
recCnt = rs!cnt
14 ms

Панург,
Спасибо за ссылку. Не увидел в интерфейсе этой возможности (оформления кода)
Согласен. К тому же, в моем примере при 500 записях время во всех вариантах меньше 1 ms.
Если учесть еще трудоемкость, не вижу смысла делать еще что-либо, кроме цикла.
Мой пост был скорей из серии - а вот еще бывает такое)