Public Class Form1
 
    Dim dt As New cDataTableCSV
 
    Dim bs As New BindingSource
 
    Dim dgv As New DataGridView With _
        {.Parent = Me, .DataSource = bs, .Top = 50}
 
 
    Dim txtFilter As New TextBox With _
        {.Parent = Me, .Width = 200}
 
    Dim WithEvents btnFilter As New Button With _
        {.Parent = Me, .Left = 210, .Width = 100, .Text = "Filter"}
 
 
    Private Sub Form1_Load(sender As System.Object, _
       e As System.EventArgs) Handles MyBase.Load
 
        If Not dt.LoadFile("C:\Daten\Numbers.csv", System.Text.Encoding.UTF8) _
          Then
            MsgBox("Datei konnte nicht geladen werden")
        Else
            'Beispiel für das Berechnen einer neuen Spalte 
            'incl. Konvertierung der Zeichenfolgen in numerische Werte  
            dt.Columns.Add("Computed", GetType(Double), _
                   "Convert(SP_1, 'System.Double') + _
                    Convert(SP_2, 'System.Double')")
            'Datenbindung herstellen
            bs.DataSource = dt
        End If
 
    End Sub
 
 
    Private Sub btnFilter_Click(sender As Object, _
        e As System.EventArgs) Handles btnFilter.Click
 
        Dim value As Double
 
        If Not Double.TryParse(txtFilter.Text, value) Then
            'Filter aufheben (leere oder falsche Filterangabe)
            bs.Filter = ""
        Else
            'Filter setzen
            bs.Filter = "Convert(SP_1, 'System.Double') = " & value
        End If
 
    End Sub
End Class