Movimentação De Registro

[Guest - Carol -]

Oi não consigo fazer os botoes proximo dado e dado anterior...

Usando VB.6 e SQL server já me falaram mil e um jeito e nenhum roda no meu programa , será que alguém tem como me ajudar???

[Señor Smoke]

Fala Carol belezinha?

Seguinte, faz +/- assim ó:

Private Sub cmdanterior_Click()

With RS
    If .BOF And .EOF Then
            MsgBox "Não há dados no arquivo ", vbInformation
    Else
           .MovePrevious
           If .BOF Then
                 .MoveFirst
                  MsgBox "Chegamos ao primeiro registro !"
           Else
                   mostra_dados
           End If
    End If
End With
End Sub

Private Sub cmdproximo_Click()
With RS
       If .BOF And .EOF Then
            MsgBox "Não há dados no arquivo ", vbInformation
       Else
            .MoveNext
             If .EOF Then
                  .MoveLast
                  MsgBox "Chegamos ao ultimo registro !"
             Else
                  mostra_dados
             End If
        End If
End With

End Sub

Esses são os codigos dos botoes Anterior e Proximo

Acho que é isso né?

Qualquer duvida fale

[]s