Public Class frmLinqFind
 
    Dim dt As New DataTable
 
    Private Sub frmLinqFind_Load(sender As System.Object, _
                        e As System.EventArgs) Handles MyBase.Load
 
        'Testspalte und Testdaten (0-1)
        dt.Columns.Add("Values", GetType(Decimal))
        Dim rndm As New Random
        For i As Integer = 0 To 99
            dt.Rows.Add(CDec(rndm.NextDouble))
        Next i
 
        'zu suchende Untergrenze
        Dim limit As Decimal = 0.5D
 
        Dim q As Decimal = _
            Aggregate row As DataRow In dt.AsEnumerable _
                Where row.Field(Of Decimal)("Values") >= limit
            Into Min(row.Field(Of Decimal)("Values"))
 
    End Sub
End Class