Erro ao editar dados depois de salvar em vb6

[Justiceira]

Tenho os seguintes botoes em meu formulario,NOVO,EDITAR.Quando clico em novo ele habilita os campos para que eu possa

começar a preencher,salvo normalmente,porém depois disso se eu desejo editar algo ele so me retorna Você já esta no Ultimo

Registro! e não sai disso. Onde estou errando?

Private Sub Cmdnovo_Click()    BOTAO NOVO
  'habilita alguns botoes
  TBatividade.AddNew
  proximo
  txtcodativ.Text = txtcodativ.Text + 1
  habilitarcampos'habilita os campos
  txtcodativ.SetFocus
End Sub
[/CODEBOX]

[CODEBOX]
Private Sub proximo()
'move para o próximo registro
TBatividade.MoveLast
If TBatividade.EOF = True Then
TBatividade.MovePrevious
End If
txtcodativ.Text = TBatividade("Codatividade")
End Sub

Private Sub Cmdedit_Click()    BOTÃO EDITAR
 Dim edicao As Variant
 Dim edita As String
 If TBatividade.EOF = True And TBatividade.BOF = True Then
    MsgBox "A Tabela está Vazia!", vbExclamation, "Aviso!"
    Exit Sub
 End If
 On Error GoTo Primeiro
 edicao = TBatividade.Bookmark
 TBatividade.Index = "codatividade"
 edita = InputBox("Informe o Código da Atividade : ", "Localiza")
 If edita = Empty Then
   Exit Sub
 Else
   TBatividade.Seek "=", edita
   habilitarbotao
 End If
 If Not TBatividade.NoMatch Then
   'AQUI FICAM OS TEXTs 
 Else
   MsgBox "Não localizado", vbExclamation, "Localiza"
   TBatividade.Bookmark = edicao
End If
Exit Sub
Primeiro:
  If Err.Number = 3021 Then
    MsgBox "Você já esta no Ultimo Registro!", vbInformation, "Aviso!!"
    Exit Sub
  End If
End Sub
[/CODEBOX]

[kuroi]

justiceira, já te falei q seu nome é o melhor q já apareceu aqui no forum?? depois de kuroi, so.

mas quanto ao erro, faz o seguinte, depois da linha q testa o BOF e o EOF, coloca isso:

TBatividade.MoveFirst

se depois disso o erro continuer, então apaga ou comente a linha On Error GoTo Primeiro (so pra testar, depois pode por de volta). e tenta executar o codigo de novo. quando der erro, ele vai apontar qual a linha q ocorre o erro.

ai poste aqui qual é essa linha pra gente ver se descobre do q se trata.

[Justiceira]

Rsrsrs...é Kuroi é um nome legal tambem.

Mas quanto ao codigo vou testar aqui o que voce sugeriu