botao para avancar registros

Question

olá amigos, procurei em vários fóruns alguns exemplos de botoes de navegação de registros com banco de dados em access, preciso apenas disto pra fechar um aplicação que estou fazendo, gostaria de saber como faço pra ir avançando de registro em registro clickando em um botão, pois o meu código vai pro ultimo registro.

Dim conn As ADODB.Connection
    Dim insertstring, drop, nome, rg As String
    Dim cod As String
    
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    With conn
        Let .Provider = "Microsoft.Jet.OLEDB.12.0;"
        Let .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & caminho_banco & "Persist Security Info=False"
    End With
    
    conn.Open
    insertstring = "SELECT * FROM controle_chamada"
    
    Set rs = conn.Execute(insertstring)
        If rs.RecordCount < 0 Then
            Do While Not rs.EOF
                nome = rs.Fields("nome")
                rg = rs.Fields("rg")
                cod = rs.Fields("Código")
                
                rs.MoveNext
            Loop
            
        End If

    conn.Close