Con la data ho risolto cosi, credo che sia giusta, anche perchè quella che stampa nell' errore è uguale a quella del database Access

<%
dim data
data=FormatDateTime(Now(),vbGeneralDate)
Response.Write(data)
%>

Questo è il codice

sql = "SELECT vola.[gruppo], vola.[id_scategoria], vola.[id_categoria], vola.[vol], vola.[nr], vola.[scadenza], vola.[descrizione],"&_
" prodotti.[provincia] "&_
"FROM vola left join prodotti "&_
"on vola.id_scategoria=prodotti.id_scat and vola.id_categoria=prodotti.id_cat and vola.vol=prodotti.vol "&_
"where prodotti.[provincia] <> AND vola.[scadenza] > '" & data & "'"
if gruppo<>"" then sql = sql & " AND vola.[gruppo]='" & gruppo & "' "
if provincia<>"" then sql = sql & " AND provincia= '" & provincia & "' "
sql = sql & "group by vola.[gruppo], vola.[id_scategoria], vola.[id_categoria],vola.[vol], vola.[nr], vola.[scadenza], vola.[descrizione], prodotti.[provincia]"&_
" ORDER BY vola.[scadenza] ASC;"

Set RS = Conn.Execute(SQL)



purtroppo mi da questo errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'prodotti.[provincia] <> AND vola.[scadenza] > '27/11/2012 11.36.46' AND vola.[gruppo]='vola' AND provincia= 'Agrigento''.