サンプル
' データテーブルを作る Dim dt As New DataTable("testTable") With dt.Columns .Add("ID", GetType(Integer)) .Add("Name", GetType(String)) .Add("Age", GetType(Integer)) End With For i As Integer = 0 To 10 With dt.Rows .Add(New Object() {1, "Mike", 21}) .Add(New Object() {2, "Tom", 23}) .Add(New Object() {3, "Lisa", 34) .Add(New Object() {4, "Ann", 24}) .Add(New Object() {5, "Dan", 11}) .Add(New Object() {6, "Eric", 76}) End With Next dt.Any(Function(x) x.ID = 1)