(Resolvido) Erro no botao proximo e anteriror

[Fabin]

galera meu botao anteriro proximo estva funcionando perfeitamente, derrepente o botao anteriror deu esta mensagme

isso ocorre somente quando eu abro a tela, quando faço inclusao, alteração ou exclusao ele funciona normalmente so não funciona quando abre a tela

Run-Time error '3219'

Operaçao não permitida neste contexto

Private Sub cmdAnterior_Click()
       If Not rsSeleçao.BOF Then
        rsSeleçao.MovePrevious
    End If
    If Not rsSeleçao.BOF Then
    lblCodEstagiario.Caption = rsSeleçao.Fields("CodEstagiario")
    txtNome.Text = rsSeleçao.Fields("Nome")
    cboInstituiçao.Text = rsSeleçao("Instituiçao")
    cboCurso.Text = rsSeleçao("Curso")
    txtPeriodo.Text = rsSeleçao("Periodo")
    cboTurno.Text = rsSeleçao("Turno")
    lblMASP.Caption = rsSeleçao("MASP")
    cboSetor.Text = rsSeleçao("Setor")
    txtMatricula.Text = rsSeleçao("Matricula")
    cboChefia.Text = rsSeleçao("Chefia")
    txtDataInicio.Text = rsSeleçao("DataInicio")
    txtDataTermino.Text = rsSeleçao("DataTermino")
    txtDtaSaida.Text = rsSeleçao("DataSaida")
    txtHorario.Text = rsSeleçao("Horario")
   Else
        MsgBox "Primeiro Registro Cadastrado", vbInformation, "Aviso"
   End If
End Sub

e o botao proximo ele fala que é o ultimo registro cadstrado porem o que esta na tela é o primeiro

Private Sub cmdProximo_Click()
   If Not rsSeleçao.EOF Then
        rsSeleçao.MoveNext
    End If
    If Not rsSeleçao.EOF Then
         lblCodEstagiario.Caption = rsSeleçao.Fields("CodEstagiario")
        txtNome.Text = rsSeleçao.Fields("Nome")
        cboInstituiçao.Text = rsSeleçao("Instituiçao")
        cboCurso.Text = rsSeleçao("Curso")
        txtPeriodo.Text = rsSeleçao("Periodo")
        cboTurno.Text = rsSeleçao("Turno")
        lblMASP.Caption = rsSeleçao("MASP")
        cboSetor.Text = rsSeleçao("Setor")
        txtMatricula.Text = rsSeleçao("Matricula")
        cboChefia.Text = rsSeleçao("Chefia")
        txtDataInicio.Text = rsSeleçao("DataInicio")
        txtDataTermino.Text = rsSeleçao("DataTermino")
        txtDtaSaida.Text = rsSeleçao("DataSaida")
        txtHorario.Text = rsSeleçao("Horario")
   Else
        MsgBox "Ultimo Registro Cadastrado", vbInformation, "Aviso"
   End If
End Sub

o que esta acontecendo

valews abraço

t+

Editado Julho 6, 2009 por Fabin

[kuroi]

esta resolvido??

[Fabin]

esta resolvido??

sim já está, coloquei um botao que atualiza os dados e deu certo

abraço

t+

[gabrieldb]

esta resolvido??

sim já está, coloquei um botao que atualiza os dados e deu certo

abraço

t+

Fabin desculpa ter mexido no tópico fechado mais to com umproblema parecido..como você colocou o botão atualizar ?

valeu!