Dim TxtFiltro as string = "id_type IN (3,4,7)" SqlArticolo.SelectCommand = "SELECT *FROM tabella WHERE visualizza = 1 AND " & TxtFiltro & " ORDER BY nome ASC"