Ho risolto il mio problema inserendo la data (qualunque data scelta con un Click nel DataGridViewer, compreso il 13/11/2017) nella Cella di una Tabella già presente dentro alla Query che ho scritto in VB .NET. Utilizzo quindi il Campo della Data come criterio per la selezione.
In questo modo funziona.
codice:
DSL = DSL.AddDays(-1)
DSL = Format(DSL, "dd MM yyyy")
sSQL = "SELECT DataSL FROM ControlloDiMagazzino"
rcrdst.Open(sSQL, CnDBLocale, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
rcrdst.MoveFirst()
rcrdst("DataSL").Value = DSL
rcrdst.Update()
rcrdst.Close()
sSQL = "SELECT DISTINCTROW Vendite.Categ, Vendite.Data, Colore.OrdCOL, Vendite.Corrisp, Giacenza.Giacenza AS Giac, Vendite.QMov AS Quant, Vendite.NBolla, ControlloDiMagazzino.DataUltimoControllo, VerifQuot_2.MaxDiData, ControlloDiMagazzino.UltimaBollaControllata, VerifQuot_2.MaxDiNBolla INTO VerifQuot_3 FROM ControlloDiMagazzino, VerifQuot_2, ((Vendite INNER JOIN Giacenza ON Vendite.Corrisp = Giacenza.Corrisp) INNER JOIN Prodotti ON Giacenza.Corrisp = Prodotti.Corrisp) INNER JOIN Colore ON Prodotti.Colore = Colore.Colore WHERE (((Vendite.Data)>[DataSL])) ORDER BY Vendite.Data, Colore.OrdCOL, Vendite.Corrisp"
rcrdst.Open(sSQL, CnDBLocale, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
Per me il thread si può chiuderlo qui, a meno che qualcuno abbia voglia di spiegare perchè l'anomalia si verifica.