Dim tab As New System.Data.DataTable
 
        tab.Columns.Add("Name", GetType(String))
        tab.Columns.Add("Diagnose", GetType(String))
 
        tab.Rows.Add("Müller", "Grippe")
        tab.Rows.Add("Schulze A.", "Appendix")
        tab.Rows.Add("Schulze B.", "Masern")
        tab.Rows.Add("Schneider", "Bruch")
 
 
        Dim tab2 As System.Data.DataTable = _
        (From rangevar As System.Data.DataRow In tab _
        Where CType(rangevar("Name"), String).Contains("Schulze")). _
        CopyToDataTable