Caro colegas, ca estou novamente.
tenho uma caixa de texto que me mostra o total de registros, agora gostaria de criar outra caixa de texto que me mostre em que registro estou atualmente, como faço isso ?

Desde já mui grato pela ajuda...

coloque uma caixa de texto no frm e na origem da linha coloque a chamada a esta função.
=ContaReg(forms!nomedoformulário)
Public Function ContaReg(frmNome As Form)
On Error Resume Next
Dim rs As Recordset
Set rs = frmNome.RecordsetClone
rs.MoveLast
rs.Bookmark = frmNome.Bookmark
If (Err = 3021) Then
ContaReg = rs.RecordCount + 1 & " de : " & rs.RecordCount
Else
ContaReg = rs.AbsolutePosition + 1 & " de : " & rs.RecordCount
End If

End Function

byby

Caro colega Élcio

Desculpe minha ignorância, ainda tenho muito que aprender, na caixa de texto em origem do controle coloquei o comando conforme me informou,

=ContaReg([Formulário]![Atualização])

Public Function ContaReg(formAtualização As Form)
On Error Resume Next
Dim rs As Recordset
Set rs = frmAtualização.RecordsetClone
rs.MoveLast
rs.Bookmark = frmAtualização.Bookmark
If (Err = 3021) Then
ContaReg = rs.RecordCount + 1 & " de : " & rs.RecordCount
Else
ContaReg = rs.AbsolutePosition + 1 & " de : " & rs.RecordCount
End If

End Function

e quando abro o form apareçe #Err na caixa de texto.

Onde pode estar o erro ?