If ComboBoxFornitore.Text <> "Tutti i Fornitori" Then
                If where.Length > 0 Then where = where & " AND "
                where = where & "MovimentiMagazzino.ID_Fornitore = " & (ComboBoxFornitore.Text) & ""
            End If