Dim db As New TestDataContext

        Dim tcs = (From p In db.tblTests _
 Select p.points ).min()
        response.write(tcs)