Try
            ScaricoDataGridView.DataSource = Me.MagazzinoGommeDataSet.Scarico
            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(1)
                .RowFilter = "data>=#" & strFiltro & "# and data<=#" & strFiltro1 & "#"
                .Sort = "data"
            End With
            ScaricoDataGridView.DataSource = vdatFiltra
            ' MsgBox("Qualora si intende eseguire una nuova ricerca, per il corretto allineamento dei dati del database, si consiglia di chiudere e riaprire questa maschera")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try