Errore su condizione where

[Prof_Mauri]

Qualcuno potrebbe dirmi come mai questa query mi da errore solo in presenza della condizione Where se uno degli operatori in una certa data non ha nessun appuntamento?

<%
set objRs = objConn.Execute("TRANSFORM Last(Query_Operatrici.DescrizioneApp) AS UltimoDiDescrizioneApp SELECT Query_Operatrici.DataApp, Query_Operatrici.OraApp, Last(Query_Operatrici.DescrizioneApp) AS [Totale di DescrizioneApp] FROM Query_Operatrici WHERE (((Query_Operatrici.DataApp)=#"&data&"#)) GROUP BY Query_Operatrici.DataApp, Query_Operatrici.OraApp ORDER BY Query_Operatrici.Nome_Cognome PIVOT Query_Operatrici.Nome_Cognome;")
precedente=""
if objRs.EOF then
%>
<%response.write "Non risulta ancora preso alcun appuntamento"%>
<%
else%>
<%
while NOT objRs.EOF
if precedente<>objRs("DataApp") then
%>
<table border="1" cellpadding="6" cellspacing="6">
<tr>
<td align="center" colspan="4"><b>Appuntamenti di giorno : <%=objRs("DataApp")%></b></td>
</tr>
<%
precedente=objRs("DataApp")
end if
%>
<tr>
<td><%=objRs("OraApp")%></td>
<td><%=objRs("Operatore1")%></td>
<td><%=objRs("Operatore2")%></td>
<td><%=objRs("Operatore3")%>
</tr>
<%
objRs.Movenext
wend
objRs.Close
Set objRs = Nothing
objConn.Close
end if
Set objConn = Nothing
%>