pessoal, eu tenho numa tela os famosos botões primeiro, anterior, próximo e último.

tenho um label que informa o número de registros, por exemplo, 1 de 500.

como eu faço para que quando eu clicar no botão próximo ele vá para o segundo registro e mostre no label 2 de 500. e quando eu voltar, volte para o registro anterior e mostre no label 1 de 500 e assim para o primeiro 1 de 500 e para o último 500 de 500.

como eu faço isso?

Primeiro troque o "de" por uma barra

Isso vai no form:

 

no botão proximo:

 

no botão anterior

 

Function ExtractArgument(ArgNum As Integer, srchstr As String, Delim As String) As String
   
    'Extract an argument or token from a str
    '     ing based on its position
    'and a delimiter.
    On Error GoTo Err_ExtractArgument
    Dim ArgCount As Integer
    Dim MaxPos As Integer
    Dim Pos As Integer
    Dim Arg As String
    Arg = ""
    MaxPos = 1
    If ArgNum = 1 Then Arg = srchstr

    Do While InStr(srchstr, Delim) > 0
        Pos = InStr(MaxPos, srchstr, Delim)

        If Pos = 0 Then
            'No More Args found
            If ArgCount = ArgNum - 1 Then Arg = Mid(srchstr, MaxPos)
            Exit Do
        Else
            ArgCount = ArgCount + 1

            If ArgCount = ArgNum Then
                Arg = Mid(srchstr, MaxPos, Pos - MaxPos)
                Exit Do
            End If
        End If
        MaxPos = Pos + 1
    Loop
    '---------
    ExtractArgument = Arg
    Exit Function
Err_ExtractArgument:
    MsgBox "Error " & Err & ": " & Error
    Resume Next
End Function