Allora se il campo data1 può risultare null ti conviene modificare così:

codice:
sql = "SELECT *FROM tab_ordine WHERE id_fornitore = '" & fornitore & "' AND (data1 = '" & data1 & "' or data1 is null)"
Vedi cosa succede.