[Resolvido]Usar parametro de consulta como variável

Prezados,

Na consulta abaixo, inicialmente ao abrir o form aparece uma caixa de dialogo e o sistema no comando "like" gera a pergunta [Digite o Código do Produto])) para comparar com o PRODUTOS.CODPRO , que é o parâmetro da consulta.
Estou precisando usar esse código digitado em um variável, para uma rotina interna VBA de pesquisa. Creio que o sistema deva gerar automaticamente uma variável interna para comparar com PRODUTOS.CODPRO. Como faço para capturar tal variável.

" SELECT MOVIMENTO.CODCLI, CLIENTE.NOME, MOVIMENTO.DATA, MOVIMENTO.QTD, CLIENTE.TELCEL1, CLIENTE.TELCEL2, PRODUTOS.NOME
FROM PRODUTOS INNER JOIN (CLIENTE INNER JOIN MOVIMENTO ON CLIENTE.[CODCLI] = MOVIMENTO.[CODCLI]) ON PRODUTOS.[CODPRO] = MOVIMENTO.[CODPRO]
WHERE (((CLIENTE.NOME)<>"_TROCA" And (CLIENTE.NOME)<>"_ACERTO DE ESTOQUE" And (CLIENTE.NOME)<>"_BRINDE") AND ((MOVIMENTO.TIPOMOV)<>"1-ENTRADA" And (MOVIMENTO.TIPOMOV)<>"3-CONSIG-ENT" And (MOVIMENTO.TIPOMOV)<>"4-CONSIG-SAI") AND ((PRODUTOS.CODPRO) Like [Digite o Código do Produto]))ORDER BY CLIENTE.CODCLI, MOVIMENTO.DATA;
"
att
Alex

Boa noite.
Para isso você pode criar uma função e atribuir o valor de uma variável global a essa função.

Crie um novo módulo nomeie com o nome que ficar melhor para entender.
Defina uma variável global e dê o valor dessa variável para a função, exemplo:

Public Function VlrParametro()
GLobal VlrPrmt As Integer***
VlrParametro = Vlr1Prmt
End Function

Desse modo você pode usar o valor da variável em critério de consultas também.

*** - Defina a variável de acordo com o tipo de dados, coloquei Integer para fim de exemplo.

Abraço

Grato a todos pelas dicas.
Abç
Alex