доброе утро всем. у меня возникла такая проблема. создал запрос как показано ниже. все прекрасно работает.

SELECT [СВК установка333].Наименование, [СВК установка333].[Дата выхода], [СВК установка333].Голограмма, [СВК установка333].Модель, [СВК установка333].[Номер аппарата], [СВК установка333].[Торг точка], [СВК установка333].Ответственный
FROM [СВК установка333]
WHERE (((Year([Дата выхода]))=2015) AND ((Month([Дата выхода]))=4))
ORDER BY [СВК установка333].Наименование;

но как только пишу код SQL в программе почему-то выдает rs.RecordCount=0 записей. где я чего не дописал или не исправил? заранее большое спасибо за совет

Set dbs = CurrentDb()
strSQL = "SELECT [СВК установка333].Наименование, [СВК установка333].[Дата выхода], [СВК установка333].Голограмма," _
& " [СВК установка333].Модель, [СВК установка333].[Номер аппарата], [СВК установка333].[Торг точка], [СВК установка333].Ответственный" _
& " FROM [СВК установка333] WHERE (((Year([Дата выхода])) = 2015) And ((Month([Дата выхода])) = 4))" _
& " ORDER BY [СВК установка333].Наименование"
Set rs = dbs.OpenRecordset(strSQL, dbOpenDynaset, DB_CONSISTENT, dbPessimistic)
kol = rs.RecordCount

http://www.sql.ru/forum/1158831/oshibka-v-zaprose