So what's wrong with using the
Contains
method?
Dim str as string = "Apple"
Dim contains As Boolean = ds.Tables("result").AsEnumerable().Any(Function(row) row.Field(Of [String])("COL1").Contains(str))
Or, if you want a case-insensitive comparison:
Dim str as string = "Apple"
Dim contains As Boolean = ds.Tables("result").AsEnumerable().Any(Function(row) row.Field(Of [String])("COL1").IndexOf(str, StringComparison.OrdinalIgnoreCase) <> -1)