Erro ao Executar Código com extenção .accdr

Olá, Desde já agradeço a colaboração de todos.

Tenho um sistema de controle de vendas que trabalha com cadastro de clientes por CPF e não deixa gerar duplicados etc..
Acontece que coloquei um código de busca no evento ao clicar do campo CPF, o código funciona perfeitamente quando uso a extensão .accdb do banco de dados,
só que eu também uso o OPEN do Avelino Sampaio e por isso preciso usar o arquivo com a extensão .accdr
o que causa algum conflito ou erro nao entendi direito, mais quando uso a extensão .accdr o código nao funciona, simplesmente da erro.

esse é o código que uso.
Se alguém puder me ajudar com uma solução estarei grato.

O erro especificamente ocorre na linha
DoCmd.FindRecord (CB)

Código:

https://msdn.microsoft.com/pt-br/library/office/ff835361.aspx

expressão .FindRecord(FindWhat, Match, MatchCase, Search, SearchAsFormatted, OnlyCurrentField, FindFirst)

expressão Uma variável que representa um objeto DoCmd.

Exemplo

O exemplo a seguir localiza nos registros a primeira ocorrência do nome Smith no campo atual e não encontra as ocorrências de smith ou Smithson.
VBA

DoCmd.FindRecord "Smith",, True,, True

sim, mais porque funciona perfeitamente em accdb e nao funciona em accdr

DoCmd.FindRecord não funciona em RUNTIME que é o accdr;

Deve-se utilizar por exemplo;

Código:

Dim rs As DAO.Recordset
Set rs = Me.Recordset.Clone
rs.FindFirst "[CPF] = '" & Me![CPF] & "'" 'se for texto, se numerico é rs.FindFirst "[CPF] = " & Me![CPF]

If rs.NoMatch Then
   MsgBox "Registo não encontrado.", vbCritical
Else
   If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If