Ola pessoal !ja me bati pra la e pra ca e nao consegui resolver meus botoes de proximo e anterior ; estou fazendo assim e nao esta dando certo sera que alguem me da uma luz no fim do tunel !

 

Private Sub cmdanterior_Click()

    Set connConection = New ADODB.Connection
    Set cmdCommand = New ADODB.Command
    Set rsContratos = New ADODB.Recordset
 
        Caminho = ReadINI("Geral", "caminho", App.Path & "Config.Ini")
   
        connConection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Caminho
       
     With cmdCommand
        .ActiveConnection = connConection
        .CommandType = adCmdText
        .CommandText = "SELECT * FROM Cad_Contratos"
    End With
       
        rsContratos.Open cmdCommand, , adOpenDynamic, adLockOptimistic
          
    If rsContratos.RecordCount = 0 Then
        MsgBox "Não existe registro na tabela", vbOKOnly, "Tabela Vazia"
    ElseIf rsContratos.RecordCount = 1 Then
        MsgBox "Só existe 1 registro", vbOKOnly, "Registros na Tabela"
        Mostradados
    ElseIf rsContratos.RecordCount > 1 And Not rsContratos.EOF Then
        rsContratos.MoveNext
        If rsContratos.EOF Then
            MsgBox "Ultimo registro", vbExclamation + vbOKOnly
            rsContratos.MovePrevious
        Else
            Mostradados
        End If
    End If
End Sub

Olha cara fazendo assim toda vez que vc clica no botão de próximo ele vai reabrir o recordset e voltar sempre ao início da tabela, vc pode deixar o recodset sempre aberto e no botão de próximo colocar somente esse código:

 

if Rst.BOF or Rst.EOF then

      Msgbox " Banco vazio !", vbinformation

      exit sub

end if

 

Rst.Movenext

if Rst.EOF then

      CmdProximo.enabled = False

      exit sub

end if

 

Ou se vc quiser usar o seu código mesmo vc pode grava a localização do último registro em uma variável e quando clicar no botão de próximo, pegar a variável e somar + 1 e gravar o novo valor, daí vc terá que usar uma pesquisa ou melhor ainda para uma consulra utilize uma view que daí não vai interferir em nada, e poderá deixar o recorset sempre aberto.

 

 

Espero ter ajudado

 

 

T+