Доступ к базе данных Несоответствие типа даты

Я думаю, вам нужно экранировать дату с помощью символа фунта "#".

Попробуй это:

"Select ItemName,Count(itemID) from tblItem where Item ='" & "A" & "' AND ExpireDate < #" & Now().Date() & "# Group By ItemName"

Если вы хотите фильтровать текущую дату в MS Access, просто используйте Date. Где дата пункта должна быть окружена знаком #

 SQL = "Select ItemName,Count(itemID) from tblItem where Item ='" & "A" & "' AND ExpireDate < #" & Date & "# Group By ItemName"

Используйте функцию Дата() Access:

Sql = "Select ItemName, Count(itemID) From tblItem Where Item ='A' And ExpireDate < Date() Group By ItemName"