Как внедрить циклический параметр vba(dao.recordset)?

подскажите пожалуйста!!!!!!!!
есть запрос на выборку в процедуре,в нём есть параметр,значение которого=значению циклической переменной в этой же процедуре!

запрос прописывается в dao.recordset
Как мне прописать этот параметр,чтоб recordset его видел?

вид процедуры:

Sub trydao123()
for h=1 to 10000
Dim rn As dao.Recordset(запрос на sql........where поле=h(параметр))

.................................прочие операторы

next h
end sub

заранее спасибо!!!!!!!!!

Оно конечно на 10000 циклах умрет, но код примерно таков

Dim rn As dao.Recordset
Dim h AS long
for h=1 to 10000
    Set rn = CurrentDb.OpenRecordset("Select ... where поле=" & h & ";")
    .................................прочие операторы
    rn.close
    set rn = Nothing
next h

Лучше бы ты сказал чё зделать надо .... типа есть такие то таблици и данние, а надо получить тото и тото... ато , понавыдумывал здесь.... :" есть параметр,значение которого=значению циклической переменной в этой же процедуре!" - нету у меня такой травы шоб это догнать... (старость, наверное)

Ёжик`

Оно конечно на 10000 циклах умрет, но код примерно таков

Dim Q As dao.QueryDef
Dim rst As dao.Recordset
Dim h AS long
    Set Q = CurrentDb.CreateQueryDef("")
    Q.SQL="Select ... where поле=[hParam];"

    for h=1 to 10000
       Q.Parameters("hParam") = f(h)
       Set rst =Q.OpenRecordset   
        .................................прочие операторы
       'rn.close
       set rn = Nothing
    next h

но в целом согласен с ежом. Если набор аксовый, поле, где =f(h) - индексировано, то всё это надо делать совсем не так. (см метод Seek, к примеру)

Спасибо,ЁЖИК,получилось!а теперь вопрос,почему так " & h & "-recordset видит внешний параметр,а =[h]-не видит,ругается,что мало параметров?

вродь ниче не померло))))ну подождать приходиться,конечно!

В топике два ответа для разных вариантов. фы1 в помощь.

ЗЫ В вба запросы нужно клеить без параметров, явно записывая их значения (мой вариант)