запрос в Access

[pshik]

У меня есть запрос в Access,который я использую в отчёте.
Проблема в том,что нужно филтровать между датами. Я установил на отдельной форме 2 DTPickera, а вот как передать переменные в запрос не знаю.

[GSerg]

Запрос:

Код: Выделить всё

PARAMETERS paramDate1 DateTime, paramDate2 DateTime;
SELECT * FROM Table1 WHERE Table1.Date BETWEEN paramDate1 AND paramDate2;

Код: Выделить всё

dim c as adodb.command, r as adodb.recordset
set c=new adodb.command
set c.activeconnection = conn 'главное подлючение к базе
c.CommandType = adCmdStoredProc
c.CommandText = "Запрос1"
c.Parameters.Append c.CreateParameter("paramDate1", adDate, adParamInput, , dtpDate1.value)
c.Parameters.Append c.CreateParameter("paramDate2", adDate, adParamInput, , dtpDate2.value)

set r=new adodb.recordset
r.open c