Try
            Dim strFiltro As String
            Dim strFiltro1 As String
           
            strFiltro = TextBox2.Text
            strFiltro1 = TextBox3.Text
            
            ScaricoBindingSource.Filter = "Data>=#" & strFiltro & "# and Data<=#" & strFiltro1 & "#"
            ScaricoBindingSource.Sort = "Data"
            MsgBox("Trovati " & Me.ScaricoDataGridView.Rows.Count.ToString() - 1 & " pneumatici.")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try