-Erro de tempo de execução '2105' ao inserir dados

Boa tarde Amigos.

Estou com um problema que não consigo entender.

Tenho um formulário de cadastro onde possuo o botão Inserir, abaixo segue o códio no evento clicar, e executei o cadastro de 03 usuário e no quarto aparece o erro 2105 e quando vou depurar é marcado o erro na linha onde consta o comando DoCmd.GoToRecord , , acNewRec marcado abaixo, podem me ajudar?

Private Sub ComandoInserir_Click()
Dim RegistoRepetido As Variant
Dim User As String
Dim Mat As String

RegistoRepetido = DLookup("[CPF]", "tblCadastro", "[CPF] ='" & Me.txtCPF & "'")
If Not IsNull(RegistoRepetido) Then
User = DLookup("Nome", "tblCadastro", "CPF = '" & Me.txtCPF & "'")
Mat = DLookup("Matrícula", "tblCadastro", "CPF = '" & Me.txtCPF & "'")
MsgBox "O CPF " & Me.txtCPF & " do Cursilhista " & User & " matrícula " & Mat & " já esta Cadastrado ", vbInformation
DoCmd.CancelEvent
Me.Undo
Me.txtCPF.SetFocus
Else
DoCmd.Save
MsgBox "Cadastrado com sucesso", , "Concluído"

DoCmd.GoToRecord , , acNewRec
End If
End Sub

Boa tarde colega, pode postar o bd para darmos uma olhada?

Segue amigo e obrigado pela atenção.

Não veio o anexo Fabio, por favor tente novamente..

estava grande demais...acima dos 3Mb até compactado...segue.

Não consegui abrir o arquivo, todo caso pensei em alguma coisa desse tipo.

Private Sub ComandoInserir_Click()
Dim RegistoRepetido As Variant
Dim User As String
Dim Mat As String

RegistoRepetido = DLookup("[CPF]", "tblCadastro", "[CPF] ='" & Me.txtCPF & "'")
If Not IsNull(RegistoRepetido) Then
User = DLookup("Nome", "tblCadastro", "CPF = '" & Me.txtCPF & "'")
Mat = DLookup("Matrícula", "tblCadastro", "CPF = '" & Me.txtCPF & "'")
MsgBox "O CPF " & Me.txtCPF & " do Cursilhista " & User & " matrícula " & Mat & " já esta Cadastrado ", vbInformation
DoCmd.CancelEvent
Me.Undo
Me.txtCPF.SetFocus
Else
DoCmd.Save
MsgBox "Cadastrado com sucesso", , "Concluído"
If Not Me.NewRecord
DoCmd.GoToRecord , , acNewRec
End If
End If
End Sub

Esta na versão do Access 2013, tentei a solução mas nem aceitou o comando, deu erro pede Then ou Go To.

Olá, o problema está quando é aberto a MsgBox o formulário perde o foco, é só colocar antes do DoCmd.GoToRecord , , acNewRec, para retornar ao formulário isso: DoCmd.GoToControl "txtNome"

Hum, entendi.. Minha versão é 2007.

Acredito que como nosso amigo Beto disse de certo então.

Boa noite amigo, como anda essa duvida?

Amigos, desculpe a demora, mas estava repleto de tarefas no trabalho e tive de me ausentar.

Eu fiz o que o amigo Beto indicou, mas continua dando o mesmo erro, as vezes eu cadastro um 10 de uma vez e não apresenta, mas do nada acontece, por isso não faço a menor idéia do que seja.

Conto com a ajuda de vocês.

Já olhaste se não tem nenhum fantasma escondido na tua cpu? pois já fiz o teste várias vezes no protótipo que postaste e não apresentou nenhum problema, faz os teste ai para ver se vai dar o erro, caso sim verifica se é o mesmo erro, podes printar a tela e anexar.