Dim ds As New Data.DataSet("myDataSet")
        Dim dt As New Data.DataTable("myDataTable")
        Dim dr As Data.DataRow
 
        dt.Columns.Add("id", GetType(Integer))
        dt.Columns.Add("vorname", GetType(String))
        dt.Columns.Add("nachname", GetType(String))

 
        dr = dt.NewRow
        dr("id") = 0
        dr("vorname") = "klaus"
        dr("nachname") = "meier"
        dt.Rows.Add(dr)
 
        dr = dt.NewRow
        dr("id") = 1
        dr("vorname") = "anton"
        dr("nachname") = "meyer"
        dt.Rows.Add(dr)
 
        dr = dt.NewRow
        dr("id") = 2
        dr("vorname") = "peter"
        dr("nachname") = "lustig"
        dt.Rows.Add(dr)
 
        dr = dt.NewRow
        dr("id") = 3
        dr("vorname") = "ulrich"
        dr("nachname") = "müller"
        dt.Rows.Add(dr)
 
        ds.Tables.Add(dt)
        '// ds.WriteXml("..\..")
        Me.DataGrid1.DataSource = ds.Tables(0)

 
        Me.ListBox1.Items.Clear()
        Dim s As String = "%m%"
        Dim filter As String = "nachname LIKE '" + s + "'" '
        For Each dr As Data.DataRow In Me.dt.Select(filter)
            Me.ListBox1.Items.Add(String.Format("id: {0} nachname: {1} vorname" & _
              "{2}", dr(0), dr(1), dr(2)))
        Next

 
        Dim s As String = "%m%"
        Dim filter As String = "nachname LIKE '" + s + "'"
        Me.dt.DefaultView.RowFilter = filter