Столкнулся с проблемой. В функции не происходит фильтрация рекордсета, как выводилось 114 записей до так и после присвоения строки фильтра. Помогите люди добрые, наставьте на путь истинный.

Dim rst As Recordset, rst1 As Recordset
Dim qdf As DAO.QueryDef, prr As DAO.Parameter

Set qdf = CurrentDb.QueryDefs("Запрос3")
qdf.Parameters(0) = "24.03.2014"
Set rst = qdf.OpenRecordset
rst.Filter = "[ID_Stan]='" & 1 & "'"
Debug.Print rst.RecordCount

Set rst1 = rst.Clone
Debug.Print rst1.RecordCount

http://www.sql.ru/forum/1086560/filtraciya-recordset-a