Visual Basic

Select MAX(cast(EmpId as int)) from TblName

Select top 1 EmpId from TblName order by EmpId desc

Private Structure Student
        Implements IComparable

        Public lastName As String
        Public firstName As String
        Public tele As String
        Public gpa As Decimal

        Public Function CompareTo(ByVal obj As Object) As Integer Implements IComparable.CompareTo

            If TypeOf obj Is Student Then
                Dim otherStudent As Student = DirectCast(obj, Student)
                Return Me.lastName.CompareTo(otherStudent.lastName)
            Else
                Throw New ArgumentException("object is not a student")
            End If

        End Function

    End Structure

Private Function SortWithLinQ(ByVal StudentList As List(Of Student)) As List(Of Student)

       Dim newStudentList As New List(Of Student)
       Dim sortedLastName = From names In StudentList Order By names.lastName Ascending
       For Each element In sortedLastName
           newStudentList.Add(element)
       Next
       Return newStudentList

   End Function

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click

    Dim i As Integer

    For i = 0 To students.Count - 1

        Dim lname As String = students(i).lastName
        txtLastName.Text = lname

    Next i

End Sub

private currentStudent as student
     private intCurrentRecord as integer
     private intRecordcount as integer

Private Sub SetRecord()

        If intRecordCount >= 0 Then
            currentStudent = Students(intCurrentRecord)
            txtFirstName.Text = currentStudent.firstName
            txtLastName.Text = currentStudent.lastName
            txtTele.Text = currentStudent.tele
            txtGPA.Text = currentStudent.gpa
        End If

    End Sub

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click

        If intCurrentRecord < intRecordCount - 1 Then
            intCurrentRecord += 1
            SetRecord()
        End If

    End Sub

    Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click

        If intCurrentRecord > 0 Then
            intCurrentRecord -= 1
            SetRecord()
        End If

    End Sub

    Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click

        intCurrentRecord = 0
        SetRecord()

    End Sub

    Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click

        intCurrentRecord = intRecordCount - 1
        SetRecord()

    End Sub