Как можно использовать в своей программе параметизированные запросы созданные в Асеессе ?

Ребята поможить... Разобраться с параметрами.
Подскажите пожалуйста, как с помощью ADO кода засунуть параметры в запрос MSHFGrid (при работе с БД .mdb). (код внизу) Зараза даже ошибку не выдает а гонит по всей базе , а надо за определенную дату.
...............
И еще махонький вопрос - Как можно использовать в своей программе параметизированные запросы созданные в Асеессе. (View)
Т.е какк передать входные параметры, но для Jet баз.
...............
Option Explicit
Private cnnNwind As New ADODB.Connection
Public rstHCusts As New ADODB.Recordset
Public blnHasRun As Boolean

Private Sub Form_Load()
If blnHasRun Then
Exit Sub
End If

Dim strShape As String

strShape = 'SHAPE ( SHAPE {SELECT data, naim_gruz, nom_nakl, Nom_vag, oplata, ves, potrebitel ' & _
'FROM VPO ' & _
'WHERE (data BETWEEN #1/01/2001# AND #10/21/2001#)' & _
' ORDER BY potrebitel} AS cmmGrupName COMPUTE cmmGrupName, ' & _
'SUM(cmmGrupName.'oplata') AS agrGrupSum, MAX(cmmGrupName.'naim_gruz') ' & _
'AS agName BY 'naim_gruz') AS cmmGrupName_Grouping ' & _
'COMPUTE MIN(cmmGrupName_Grouping.'agrGrupSum') AS agrTotalSum, ' & _
'cmmGrupName_Grouping'

With cnnNwind
.Provider = 'MSDataShape.1'
.Open 'Data Source= test'
End With

With rstHCusts
Set .ActiveConnection = cnnNwind
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Source = strShape
.Open
End With
blnHasRun = True

End Sub

strShape = 'SHAPE ( SHAPE {SELECT data, naim_gruz, nom_nakl, Nom_vag, oplata, ves, potrebitel ' & _
'FROM VPO ' & _
'WHERE (data BETWEEN ? AND ?)' & _
' ORDER BY potrebitel} AS cmmGrupName COMPUTE cmmGrupName, ' & _
'SUM(cmmGrupName.'oplata') AS agrGrupSum, MAX(cmmGrupName.'naim_gruz') ' & _
'AS agName BY 'naim_gruz') AS cmmGrupName_Grouping ' & _
'COMPUTE MIN(cmmGrupName_Grouping.'agrGrupSum') AS agrTotalSum, ' & _
'cmmGrupName_Grouping'

...

.parameters.refresh

.parameters(0)=#1/01/2001#
.parameters(1)=#21/10/2001#
Возможно индексация и нарушена, хотя я и не уверен. Еще есть вариант, что иерархический рекордсет может не открыться таким образом - проверьте.

А для Access все просто:
Параметры указываются не как '?', а как [ИмяПараметра], можно даже использовать введенное в Jet SQL ключевое слово PARAMETERS(См. Help)

И аналогично для Command-Parameters.Refresh и их установка

Что-то ничего не получилось, с параметрами. Неужели их надо вставлять как - ? (не знал!). Целый день пытался вдолбить параметры в Shere не получилось!!! Пожалуйста, нельзя ли подобнее. Перерыл весь MSDN, но там в качестве примеров приведен SQL-server, а не Jet. А тут меня программа , то к 'Param - Info' отсылает, то вообще не выдает кучу ошибок.
Накопал примеры работы с ADOX (но еще не разбирал), может через нее удобнее работать с базами и запрросами .mdb?

Ребята помогите(желательно, примерами) работы с параметизированными запросами.

Текст qry1:
SELECT * FROM tblDocsTemp WHERE rowid=[Параметр];