[Resolvido]Registro Atual + Total de registros

Prezados,
Tenho um formulário e gostaria de colocar nele uma caixa de texto que me mostre o registro atual e a quantidade total de registros da tabela.
fiz da seguinte forma:

Criei uma caixa de texto que chamei de txtResultado e a coloquei no cabeçalho do meu formulário, no evento "no ataul" do formulário coloquei o seguinte código:

-------------------------------------------------------------------------
Private Sub Form_Current()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim contaReg As Integer
Dim regAtual As Integer

Set db = CurrentDb()
Set rs = db.OpenRecordset("tabClientes")
contaReg = rs.RecordCount
regAtual = rs.AbsolutePosition

Me.txtResultado.Value = "Cliente " & regAtual & "/ " & contaReg

End Sub
------------------------------------------------------------------------
Quando mando abrir o formulário, recebo a seguinte mensagem de erro:

"operação não suportada para esse tipo de objeto"

apontando para linha onde tenho a instrução:

regAtual = rs.AbsolutePosition

O que eu fiz de errado?

Obs: Ja fui em referencias e tentei adicionar a Microsoft DAO 3.6 Object Library mas recebo o erro de que a DLL nao foi encontrada. Uso o office 2013.

Veja.

Function ExibeRecEsteForm()
On Error GoTo MostraErro
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
' Vai para o último registro
' para forçar o RecordCount.
rs.MoveLast
' Retorna o ponteiro p/ o registro atual.
rs.Bookmark = Me.Bookmark

If (Err <> 0) Then
ExibeRec = rs.RecordCount + 1 & " de " & rs.RecordCount + 1
Else
ExibeRec = rs.AbsolutePosition + 1 & " de " & rs.RecordCount
End If
set rst=nothing
Exit Function
MostraErro:
Select Case Err.Number
Case 3021 'não tem nenhum registo
ExibeRecEsteForm = ""
Case Else
MsgBox Err.Number & vbCr & Err.Description
End Select
End Function

Obrigado Rubens e Erinaldo

O forum Agradece.