[Resolvido]Problemas ao abrir formulário com filtro

Eu tenho um sistema de movimento de estoque. Tenho dois formulários, o frmMovimento e o frmPesquisa, nos frmPesquisa eu tenho o formulario e um subformulario onde mostra todo o movimento de cada item cadastrado...

O que eu tava tentando fazer era através de um botão no subform abrir o frmMovimento referente ao registo do subform no frmPesquisa....

Sempre usei este codigo:

Private Sub AbriMov_Click()

Dim stDocName As String
Dim stLinkCriteria As String

   stDocName = "frmMovimento"
   stLinkCriteria = "[Cod]=" & "'" & Me![Cod] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Sendo Cod um campo tipo Numeração Automática.... Mas este codigo ta retornando um erro 3464...

Qm puder dar uma luz ai seria muito grato.

Sendo numerico não pode usar aspas simples;

Tente assim;

Código:

 stLinkCriteria = "[Cod]=" & " & Me![Cod] & "

Mestre JPaulo, obrigado pelo retorno.
Porém ainda não deu certo, tentei tbm usando ASCI assim:

Código:

stLinkCriteria = "[Cod]=" & Chr(34) & Me![Cod] & Chr(34)

Mas mesmo assim da o mesmo erro >>>>>   "Erro em tempo de execução '3464': Tipo de dados incompartíveis na expressão de critério."

Se é mesmo numerico tem de funfar;

Teste assim;

Código:

stLinkCriteria = "[Cod]=" & "" & Me![Cod] & ""

Verifica também se:

Me![Cod] se esse Campo realmente está no seu Formulário, e se ele está com esse nome: Cod

A Falta de atenção as vezes nos faz passar por apuros... kkkkkk
O meu form tava definido com DoCMD.GoToRecord,,,acNewRec ao abrir o form.... O form tav abrindo filtrado mas sempre exibia um novo registro...

Enfim.. Probrema resolvido... Obrigado pelo retorno pessoal...

Fico feliz por estar resolvido.