Dim vdatFiltra As New DataView
        Dim strFiltro As String
        Dim strFiltro1 As String
        strFiltro = TextBox2.Text 'InputBox("Digitare la stringa da cercare", "Criterio di filtro")
        strFiltro1 = TextBox3.Text
        With vdatFiltra
            .Table = MagazzinoGommeDataSet.Tables(0)
            .RowFilter = "Marca Like '%" + strFiltro + "%'" '' & Chr(39) & strFiltro & Chr(39) ' & " and Modello<=" & strFiltro1
            .RowFilter = "Modello Like '%" + strFiltro1 + "%'" ''" & Chr(39) & strFiltro1 & Chr(39)
            ''"data>=" & strFiltro & " and data<=" & strFiltro1 '"data = " & Chr(39) & strFiltro & Chr(39)
            .Sort = "Modello"

        End With

        CaricoDataGridView.DataSource = vdatFiltra