Botão navegação, próximo

[Matheus da Maia Cordeiro]

Fiz um código para o botão primeiro e último e deu certo, gostaria de saber como implementar o código abaixo para o botão proximo, segue codigo do botão ultimo funcionado para exemplo:

 

 Private Sub btnUltimo_Click(sender As Object, e As EventArgs) Handles btnUltimo.Click
        'Botao Ultimo
        Using con As SqlConnection = GetConnetionSQLServerIndicador()

            Try
                con.Open()
                sql = "select * from r030emp order by numemp"
                Dim cmd As SqlCommand = New SqlCommand(sql, con)
                Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
                Dim dt As DataTable = New DataTable
                local = New DataSet
                da.Fill(local, "R030Emp")
                resultado = local.Tables("R030Emp").Rows.Count

                If resultado > 0 Then
                    registro = local.Tables("R030Emp").Rows(resultado - 1)
                    cbxCodigoEmpresa.Text = registro("NumEmp")
                    cbxCodigoEmpresa.Enabled = False
                    btnAlterar.Enabled = True
                    btnCancelar.Enabled = True
                    txtNomeEmpresa.Text = registro("NomEmp")
                    TxtApelido.Text = registro("ApeEmp")
                    txtDdd.Text = registro("DddTel")
                    txtTelefone.Text = registro("NumTel")
                    btnAlterar.Text = "Alterar"

                ElseIf resultado = 0 Then
                    'Habilita Botões
                    cbxCodigoEmpresa.Enabled = False
                    btnAlterar.Enabled = True
                    btnCancelar.Enabled = True
                    txtNomeEmpresa.Text = ""
                    TxtApelido.Text = ""
                    txtDdd.Text = ""
                    txtTelefone.Text = ""
                    cbxCodigoEmpresa.Enabled = True
                    'cbxCodigoEmpresa.Focus()
                    'Ajusta a data
                    btnAlterar.Text = "Inserir"
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()
            End Try
        End Using
    End Sub

[Alyson Ronnan Martins]

Boa noite @Matheus da Maia Cordeiro

Não entendi o que precisa contra no botão, olhando o seu código ele faze uma pesquisa na tabela "r030emp" ordenando a coluna "numemp" de forma crescente.

Mais quando você fala ultimo e primeiro é a ordem dos registros de alguma coluna?