[Resolvido]puxar registro

Bom dia amigos, desculpe, mas uma vez com o mesma coisa.
O ivan ja tinha me ajudado , pesquisei por aqui e não consigo encontrar .
eu quero puxar um registro, mais ele so puxa o primeiro, os outros não aparece

Código:

receberPrecoDoCadastro = DLookup("preco", "tbEstoque", Me.txtPreco = preco)
verificarProduto = DLookup("NomeDoProduto", "tbEstoque", "NomeDoProduto= '" & Me.txtProduto & "'")
    If txtProduto = verificarProduto Then
        MsgBox "OPA! O Produto já está cadastrado." & vbCrLf & "Clique em atualizar estoque", vbInformation, "CENTER-PRINT"
        Me.txtPreco = receberPrecoDoCadastro

A finalidade é: se o produto já está cadastrado ele tem que colocar o valor do produto para que eu atualize o preço, ele só esta puxando o primeiro registro.
ja fiz todo jeito , mas não lembro qual problema

Código:

receberPrecoDoCadastro = DLookup("preco", "tbEstoque", "nomedoproduto ='" & Me.nomedoproduto & "'")

Altere a primeira linha pra isso e teste.
Pelo que entendi a primeira linha serve para puxar o preço do produto.

Você tem que usar como critério o código do produto ou o próprio nome dele pra isso.

isso da peoblema na segunda linha, mas essa linha que mandou da certo