[Resolvido]Ajuda em sql

Boa tarde! Gostaria de uma ajuda nessa sql.

Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb

com essa linha funciona direitinho
Set rst = db.OpenRecordset("SELECT tab_DetalheDoPedido.CódigoDoPedido, tab_DetalheDoPedido.CódigoDoProduto, tab_DetalheDoPedido.CódigoDaOrdem, tab_DetalheDoPedido.Linha, tab_DetalheDoPedido.Referência, tab_DetalheDoPedido.Unidade, tab_DetalheDoPedido.Quantidade, tab_DetalheDoPedido.PreçoDeCusto, tab_DetalheDoPedido.PreçoDeVenda, tab_DetalheDoPedido.DescontoConcedidoReais, tab_DetalheDoPedido.DescontoConcedidoPorcentagem, tab_DetalheDoPedido.DescontoRecebido, tab_DetalheDoPedido.DescontoMáximo FROM tab_DetalheDoPedido WHERE (((tab_DetalheDoPedido.CódigoDoPedido)=74532) AND ((tab_DetalheDoPedido.CódigoDoProduto)=2993));")


mudando o código do pedido 74532 para a variavel strCódigoDoPedido e o código do produto 2993 para txtCódigoDoProduto como a seguir,da erro.


Set rst = db.OpenRecordset("SELECT tab_DetalheDoPedido.CódigoDoPedido, tab_DetalheDoPedido.CódigoDoProduto, tab_DetalheDoPedido.CódigoDaOrdem, tab_DetalheDoPedido.Linha, tab_DetalheDoPedido.Referência, tab_DetalheDoPedido.Unidade, tab_DetalheDoPedido.Quantidade, tab_DetalheDoPedido.PreçoDeCusto, tab_DetalheDoPedido.PreçoDeVenda, tab_DetalheDoPedido.DescontoConcedidoReais, tab_DetalheDoPedido.DescontoConcedidoPorcentagem, tab_DetalheDoPedido.DescontoRecebido, tab_DetalheDoPedido.DescontoMáximo FROM tab_DetalheDoPedido WHERE (((tab_DetalheDoPedido.CódigoDoPedido)=" & strstrCódigoDoPedido) And (tab_DetalheDoPedido.CódigoDoProduto) = " & me.txtCódigoDoProduto)"

rst.Delete
rst.Close
db.Close
Set rst = Nothing


alguma idéia?

Obrigado

Boa tarde,

Voce está esquecendo de fechar a chamada da variável. Sempre que o código continuar depois de uma variável, voce deve fechá-la:

Código:

" & variavel & "

.

Tente o seguinte:

Set rst = db.OpenRecordset("SELECT tab_DetalheDoPedido.CódigoDoPedido, tab_DetalheDoPedido.CódigoDoProduto, tab_DetalheDoPedido.CódigoDaOrdem, tab_DetalheDoPedido.Linha, tab_DetalheDoPedido.Referência, tab_DetalheDoPedido.Unidade, tab_DetalheDoPedido.Quantidade, tab_DetalheDoPedido.PreçoDeCusto, tab_DetalheDoPedido.PreçoDeVenda, tab_DetalheDoPedido.DescontoConcedidoReais, tab_DetalheDoPedido.DescontoConcedidoPorcentagem, tab_DetalheDoPedido.DescontoRecebido, tab_DetalheDoPedido.DescontoMáximo FROM tab_DetalheDoPedido WHERE (((tab_DetalheDoPedido.CódigoDoPedido)=" & strstrCódigoDoPedido & ") And (tab_DetalheDoPedido.CódigoDoProduto) = " & me.txtCódigoDoProduto & ")"

Abraço.

Bom dia! Deu certinho! Nem sei como agradecer, quase um mês sofrendo rsrs.
Muito obrigado.