[Resolvido]Manter o foco no registro atual

Galera, tenho o seguinte código abaixo. Após o requery o foco é mandado para o primeiro registro. Gostaria que o foco mantivesse no registro atual após o requery. Alguém poderia me ajudar? Obrigado.

Private Sub ValorPagamento_Exit(Cancel As Integer)

Dim db
Dim rs

If ValorPagamento > 0 And ValorPagamento <> ValorParcela Then
If MsgBox("Deseja realizar pagamento parcial?", vbYesNo) = vbYes Then
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tabela_Verbas")
rs.AddNew
rs("Código Processo") = Código_Processo
rs("Condição") = Condição
rs("N Parcela") = N_Parcela
rs("ValorParcela") = CCur(Me.ValorParcela - Me.ValorPagamento)
rs("DataVencimento") = Me.DataVencimento + 1
rs.Update
Set rs = Nothing
Me.ValorParcela = Me.ValorPagamento
Me.Requery

End If
End If

End Sub

Assunto já batido na mensagem do link abaixo
https://www.maximoaccess.com/t36588-ajuda-para-dimensionar-corretamente-foto-capturada-da-webcam#250055

Ivan, poderia complementar esse código pra mim? Sou iniciante no access e não compreendi os códigos do link que você me mandou. Desde já agradeço.

Private Sub ValorPagamento_Exit(Cancel As Integer)

Dim db
Dim rs

If ValorPagamento > 0 And ValorPagamento <> ValorParcela Then
If MsgBox("Deseja realizar pagamento parcial?", vbYesNo) = vbYes Then
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tabela_Verbas")
rs.AddNew
rs("Código Processo") = Código_Processo
rs("Condição") = Condição
rs("N Parcela") = N_Parcela
rs("ValorParcela") = CCur(Me.ValorParcela - Me.ValorPagamento)
rs("DataVencimento") = Me.DataVencimento + 1
rs.Update
Set rs = Nothing
Me.ValorParcela = Me.ValorPagamento

rs = Me.Bookmark
Me.Requery
Me.Bookmark = rs

End If
End If

End Sub

Resolvido, Obrigado.

O fórum agradece o retorno. Sucesso.