[Resolvido]Produto não cadastrado

Boa noite.

Realizei uma alteração em um projeto que estou trabalhando, porem no formulario acerto, quando digito um código já existente, ele informa que o código não existe , mas o campo código é limpo e a descrição permanece.
Alguma sugestão de quando o código não existir ele limpa o campo que digita o código e posiciona o cursor novamente no campo para digitar o código.

Bom dia Denilson!

Aquí o erro

Código:

Private Sub Cod_Produto_Exit(Cancel As Integer)
    On Error Resume Next
    Me.Desc_Produto = DLookup("Id_DescProduto", "Tab_Cadastro", "Id_CodProduto=" & Me.Cod_Produto & "")
    Me.Fisico_Produto = DLookup("Id_EstoqueAtual", "Tab_Cadastro", "Id_Codproduto=" & Me.Cod_Produto & "")
   
    If IsNull(DLookup("[Desc_Produto]", "tab_cadastro", "[Id_Codigo]= Forms!Frm_Acerto!Cod_Produto")) Then    '<--- [Id_Codigo] deve ser [Id_CodProduto]
        'If MsgBox("Produto Não Cadastrado", vbCritical, "Aviso") Then
        'Me.Cod_Produto = Empty
        'Me.Cod_Produto.SetFocus
        'Me.Cod_Produto = ""
        'Me.Undo
        'Cancel = True
     
        MsgBox "Produto Não Cadastrado e/ou Codigo Incorreto", vbCritical, "Aviso"
         
        'Me.Cod_Produto = Cancel
        Me.Cod_Produto = ""
        Me.Cod_Produto.SetFocus
        'Me.Cod_Produto = ""
   
        'Exit Sub
    Else
        Me.Desc_Produto = DLookup("Id_DescProduto", "Tab_Cadastro", "Id_CodProduto=" & Me.Cod_Produto & "")
        Me.Fisico_Produto = DLookup("Id_EstoqueAtual", "Tab_Cadastro", "Id_Codproduto=" & Me.Cod_Produto & "")
       
        'End If
    End If
End Sub

Saludos!

Obrigado.
Consegui fazer caso o código não seja cadastrado limpar o campo código e posicionar o cursor nele