Duvidas DLookup

Pessoal preciso da ajuda de vcs.
Tenho uma tbl_Produto nele contem 3 campos IDCOD - (Numeração automática) codprod - (numeração) Produto - (texto)
No formulário tem dois campos
01 campo não aclopado - Codigo do produto
02 campo (txtproduto) - Nome do produto

Estou querendo quando digitar o codigo do produto ele vai localizar o produto e colocar no campo txtproduto.

If DLookup("[codprod]", "tbl_Produto", "codprod=" & Me.txtcodprod & "") Then
'codigo para retornar o nome do produto no campo txtproduto'
Else
If MsgBox("Produto não cadastrado. Deseja cadastrar ?", vbQuestion + vbYesNo, "CADASTRO") = vbYes Then
DoCmd.OpenForm "Cadastroproduto"
End If
End If


Access 2007

Boa noite.

Veja se é isso:

Se quiser tem um exemplo anexo.

Abraço.

Código:


If DLookup("[codprod]", "tbl_Produto", "codprod=" & Me.txtcodprod & "") Then
'codigo para retornar o nome do produto no campo txtproduto'
Me.TxtProduto = DLookup("Produto", "tbl_Produto", "codprod= " & DLookup("txtcodprod", "tbl_Produto"))
Else
If MsgBox("Produto não cadastrado. Deseja cadastrar ?", vbQuestion + vbYesNo, "CADASTRO") = vbYes Then
DoCmd.OpenForm "Cadastroproduto"
End If
End If