Try:
Me.Filter = "[PREVISIONE_ARRIVO_ INTERPORTO] = #" & Format(Me.FilterData, "dd\/mm\/yyyy") & "#"
OR:
Me.Filter = "[PREVISIONE_ARRIVO_ INTERPORTO] = #" & Format(Me.FilterData, "yyyy\/mm\/dd") & "#"
Rather than:
Me.Filter = "[PREVISIONE_ARRIVO_ INTERPORTO] = #" & Format(Me.FilterData, "gg\/mm\/aaaa") & "#"