Параметры в запросе в vbscript

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

Подскажите пожалуйста.Как передать в хранимый запрос параметры в скрипте.
Что-то типа этого

q  DAO.QueryDef, p  DAO.Parameter 
   q = CurrentDb.QueryDefs()
  q.Parameters().Value=Cdate(Ваше_значение_параметра)
  q.Execute 
  q.:  q=

Пробовал через dao

DBE, DB
 DBE = CreateObject()
 DB = DBE.OpenDatabase(, False)

А дальше не соображу.

Решение задачи: «Параметры в запросе в vbscript»

textual
                            Листинг программы 
                        

                            <font color="blue">Set</font> DBE = CreateObject(<font color="teal">"DAO.PrivateDBEngine.36"</font>)
DBE.DefaultType = <font color="darkblue"><b>2</b></font>      <font color="00AA00">'dbUseJet</font>
DBE.DefaultUser = <font color="teal">"Admin"</font>
DBE.DefaultPassword = <font color="teal">""</font>
<font color="blue">Set</font> DB_mdb = DBE.OpenDatabase(<font color="teal">"c:\web.mdb"</font>, False)
<font color="blue">set</font> q=db_mdb.querydefs(<font color="teal">"payments_var2"</font>)
q.parameters(<font color="teal">"[input_month:]"</font>).value=<font color="darkblue"><b>9</b></font>
q.parameters(<font color="teal">"[input_year:]"</font>).value=<font color="darkblue"><b>2007</b></font>
q.execute
q.<font color="blue">close</font>
db_mdb.<font color="blue">close</font>
<font color="blue">set</font> q=<font color="blue">nothing</font>
<font color="blue">set</font> db_mdb=<font color="blue">nothing</font>
<font color="blue">set</font> dbe=<font color="blue">nothing</font>

                        