@paolac78
Devi usare i TAG per formattare il codice (come da Regolamento!)

Potrebbe essere perchè la data deve essere indicata nel formato americano: MM/DD/YYYY
invece sospetto che tu nel combobx l'abbia nel formato italiano: DD/MM/YYYY

codice:
AND Data = #" & ComboBox2.Text & "# "
dovrebbe quindi essere modificato con

codice:
AND Data = #" & Format(ComboBox2.Text, "MM/DD/YYYY") & "# "
Ma, come sempre, consiglio l'uso dei Parametri di ADO per eliminare tutti questi problemi a monte, ovvero niente più cancelletti, apici, format vari, ecc...

Sinceramente non capisco proprio perchè non si utilizzano, dato che hanno soprattutto il vantaggio di semplificarci la vita.
Tra l'altro è la stessa tecnica adottata nei linguaggi NET, quindi un eventuale passaggio a VB.NET, C#, ecc. sarebbe meno indolore.

Se interessa, ho pubblicato un articolo su questo:
ADO, Parametri ed affini
http://nuke.vbcorner.net/Articoli/VB...5/Default.aspx



P.S.

Suggerimenti
Connessione: si dovrebbe impostare sempre il cursore su adUseClient
Recordset: invece di indicare nell'apertura: 1 e 3 usa le costanti mnemoniche, che sono fatte apposta per non doversi ricordare cosa significa 1 e 3.