サンプル
' データテーブルを作る
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)