[Resolvido]Localizar Cliente especifico

Boa noite
tenho um formulario para cadastro de clientes
Estou utilizando uam funçao que verifica se o cpf informado ja esta cadstrado, se estiver da uma msg avisando e traz os dados do cliente.
esta funcionando parcialmente, pois quandfo cpf ja existe no banco de dados ele esta me avisando, porem esta me retornando sempre
os dados do csdstro numero 1. No imsporta qual seja o Id do cliente informado

exemplo cpf 12345678910 o id desse cpf e 1 os dados sao preenchidos normalmente
o cpf 12345678911 o id e 2 porem os dados mostrado sao do id 1
segue o codigo

Código:

Private Sub TxCpf_AfterUpdate()
If DCount("CpfCli", "TblClientes", "CpfCli =" & Me!TxCpf & "") > 0 Then
MsgBox "Cliente já Cadastrado", vbQuestion, "Já Cadastrado"

Dim Db As DAO.Database
Dim rs As DAO.Recordset
Set Db = CurrentDb
Set rs = Db.OpenRecordset("Select * from TblClientes ")

rs.Edit
Me.TxCod = rs!codcli
Me.TxNome = rs!NomeCli
Me.TxEnd = rs!endcli
Me.TxCompl = rs!ComplementoCli
Me.TxCep = rs!Cepcli
Me.TxFone = rs!Fonecli
Me.TxCel = rs!celularcli
Me.TxCpf = rs!CpfCli
Me.TxObs = rs!ObsCli

rs.Close
Set rs = Nothing
Db.Close
Set Db = Nothing

End If

End Sub

oque preciso e que traga os dados do cpf expecifico
onde estou errando?

Boa noite!

Não consegui abrir seu banco. Diz que tenho que possuir uma versão mais nova do Office. Uso 2016. Mesmo assim acho que falta o Where com CPF do formulário = CPF da tabela.

Abraços

Código:

Set rs = Db.OpenRecordset("Select * from TblClientes WHERE CpfCli =" & Me!TxCpf & "")

Mestre J Paulo muito obrigado funcionou perfeitamente
Deus abençoe