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