[Resolvido]Contador de Registros Salvos no Formulário

Pessoal, preciso de algo muito simples, que não localizei no Fórum, que é mostar a Quantidade de Registros que o Usuário salvou num Formulário, que tem um textbox chamado txtQtdeDigitada, enquanto ele não o fechar.

Fiz o seguinte, para criar o contador:

Private Sub Form_Load()
Dim QtdeRG As Integer
QtdeRG = 0
End Sub

Para somar ao contador:
Private Sub Comando_Salvar_Registro_Click()
Dim RstControl As DAO.Recordset
Set RstControl = CurrentDb.OpenRecordset("SELECT * FROM Tab_RG")
With RstControl
.AddNew
!Campo1 = Me.Var1
!Campo2 = Me.Var2
!Campo3 = Me.Var3
!Campo4 = Me.Var4
.Update
End With
RstControl.Close
Set RstControl = Nothing
Me.txtUltimoRG = Me.txtRgRg
QtdeRG = QtdeRG + 1
txtQtdeDigitada = Str(QtdeRG) '<<<==== AQUI ELE DEVERIA MOSTRAR NA TEXTBOX !!!!

End Sub

E se eu quisesse mostrar o último registro inserido, ou mesmo os últimos, tipo uma folha de dados como um subformulário, também é possível, certo?
Abraço

Tente assim:

Private Sub Comando_Salvar_Registro_Click()
Dim RstControl As DAO.Recordset
Set RstControl = CurrentDb.OpenRecordset("SELECT * FROM Tab_RG")
With RstControl
.AddNew
!Campo1 = Me.Var1
!Campo2 = Me.Var2
!Campo3 = Me.Var3
!Campo4 = Me.Var4
.Update
QtdeRG = QtdeRG + 1
txtQtdeDigitada = Str(QtdeRG)
End With
RstControl.Close
Set RstControl = Nothing


Me.txtUltimoRG = Me.txtRgRg

'<<<==== AQUI ELE DEVERIA MOSTRAR NA TEXTBOX !!!!

End Sub

Obrigado pelo retorno Rubens, mas não funcionou!!

Continua trazendo apenas 1, ou seja, inicializa com 0 (Zero) no Form_Load e soma 1 vez.

É como se ele Zerasse a variável, mas é só no Form_Load que ele faz isso.

Será que alguém pode me ajudar?

Ainda tentando resolver o problema do contador, se eu tiver uma consulta que me traga os totais de um Campo e por Data, como faço para utilizar esse campo calculado em um Formulário?

Consulta: Cons_do_Atendente_por_Data

Campos: Data                                                                     Cod_Atendente                                              Contar de Tab_RG:Contar(*)
Tabela:   Tab_RG                                                                  Tab_RG
Total:     Agrupar por                                                            Agrupar por                                                 Expressão
Critério: [Formulários]![For_Tab_RG]![txtDataAtendimento]           [Formulários]![For_Tab_RG]![txtAtendente]

Tendo em meu Formulário (For_Tab_RG) a Caixa de Texto txtQtdeDigitada, como faço para que tenha o valor que está no campo Expressão [Contar de Tab_RG], considerando que eu tenha os campos txtDataAtendimento e txtAtendente para, respectivamente, [Data] e [Cod_Atendente] da Consulta acima?

O que pretendo é Mostrar o último RG digitado (ok) e a Qtde de RGs que o usuário digitou (Erro)
O ideal seria, ao iniciar a aplicação, verificar se existem registros na mesma data para o atendente, o que a consulta já traz, senão começa com Zero.
A partir de então, enquanto o atendente estiver digitando, deve-se somar 1 à Qtde Digitada toda vez que Salvar o Registro, evitando fazer sempre consultas ao BD, o que deixaria o sistema lento, já que utilizo em rede e vários usuários o utilizam ao mesmo tempo (até 7).

Segue o BD

Agradeço a atenção!

Consegui, pessoal!

Utilizei a função Dlookup e deu certo!

No primeiro Formulário: For_TelaInicial0:
Public QtdeRG As Integer
Public UltimoRG As String

Private Sub CmdTelaInicialContinua_Click()
QtdeRG = DLookup("[Contar De Tab_RG]", "Cons_RGs_do_Atendente_por_Data", "[Data] = #" & Forms![For_Tab_RG].txtDataAtendimento & "#" & _
" AND [Cod_Atendente] = " & Forms![For_Tab_RG].txtAtendente)
Forms![For_Tab_RG].txtQtdeDigitada = Str(QtdeRG)
end sub

Obrigado a todos.