Scusami, ma "id_fornitore" e "data1" sono entrambi stringa?
Perchè da come hai scritto la query così appaiono...

Secondo me l'errore è dovuto a questo problema, prova a modificare la query così:

codice:
sql = "SELECT * FROM tab_ordine WHERE id_fornitore = " & fornitore & " AND data1 = #" & data1 & "#"