Private Sub Filtra()


        Dim criterio As String = ""

        If TextBox1.Text <> "" Then criterio &= "Categoria Like '*" & TextBox1.Text & "*'"

        If TextBox2.Text <> "" Then
            If criterio <> "" Then criterio &= " AND "
            criterio &= "Nome Like '*" & TextBox2.Text & "*'"
        End If

        If TextBox3.Text <> "" Then
            If criterio <> "" Then criterio &= " AND "
            criterio &= "Dettagli Like '*" & TextBox3.Text & "*'"
        End If

        If TextBox4.Text <> "" Then
            If criterio <> "" Then criterio &= " AND "
            criterio &= "TipoNum Like '*" & TextBox4.Text & "*'"
        End If

        If TextBox5.Text <> "" Then
            If criterio <> "" Then criterio &= " AND "
            criterio &= "Numero Like '*" & TextBox5.Text & "*'"
        End If

        Dim rows() As DataRow

        rows = dsRubrica.Tables("Rubrica").Select(criterio)


        'rows = dsRubrica.Tables("Rubrica").Select("Categoria Like '*" & TextBox1.Text & _
            '                                                           "*' AND Nome Like '*" & TextBox2.Text & _
            '                                                           "*' AND Dettagli Like '*" & TextBox3.Text & _
            '                                                           "*' AND TipoNum Like '*" & TextBox4.Text & _
            '                                                           "*' AND Numero Like '*" & TextBox5.Text & _
            '                                                           "*'")

            Dim DsFiltro As New Data.DataSet
            DsFiltro.Tables.Add("Filtro")

            DsFiltro.Tables("Filtro").Columns.Add("Categoria")
            DsFiltro.Tables("Filtro").Columns.Add("Nome")
            DsFiltro.Tables("Filtro").Columns.Add("Dettagli")
            DsFiltro.Tables("Filtro").Columns.Add("TipoNum")
            DsFiltro.Tables("Filtro").Columns.Add("Numero")

            For i = 0 To rows.Count - 1
                DsFiltro.Tables("Filtro").Rows.Add(rows(i).ItemArray)
            Next

            DG1.DataSource = DsFiltro.Tables("Filtro")

    End Sub