Ajuda em uma SQL

Olá boa noite, fiz uma SQL de referencia cruzada para calculos de descontos, fiz primeiro um teste:
Frmteste campos:

Umidade, TxUmidade, Codigo

devieria devolver o resultado para o campo TxTotal.
Eis o meu código

Dim varsql As String
Dim strsql As Recordset
Dim var As String


varsql = "SELECT tblDescontos.Aplicado, TblDesconto_Detail.IdProduto, TblDesconto_Detail.Idfaixa, TblDesconto_Detail.De, TblDesconto_Detail.Ate, TblDesconto_Detail.Desconto FROM tblDescontos INNER JOIN TblDesconto_Detail ON tblDescontos.Código = TblDesconto_Detail.IdProduto WHERE (((tblDescontos.Aplicado) = '&Me.Umidade' And ((TblDesconto_Detail.IdProduto) = '&Me.Codigo') And ((TblDesconto_Detail.De) <= '&Me.TxUmidade') And ((TblDesconto_Detail.Ate) >= '&Me.TxUmidade')))"
Set strsql = CurrentDb.OpenRecordset(varsql)

MsgBox "o valor é " & strsql(0)

Porém quando executo ela retorna ERRO EM TEMPO DE EXECUÇÃO '3021'
nenhum registro atual.
nos campos txUmidade e Desconto possuem valores decimais tipo 14,5 ou 0,75 e por ai
aguado ajuda obrigado

Teste por favor;

varsql = "SELECT tblDescontos.Aplicado, TblDesconto_Detail.IdProduto, TblDesconto_Detail.Idfaixa, TblDesconto_Detail.De, TblDesconto_Detail.Ate, TblDesconto_Detail.Desconto "
varsql = varsql & " FROM tblDescontos INNER JOIN TblDesconto_Detail ON tblDescontos.Código = TblDesconto_Detail.IdProduto "
varsql = varsql & " WHERE (((tblDescontos.Aplicado) = '" & Me.Umidade & "' And ((TblDesconto_Detail.IdProduto) = '" & Me.Codigo & "') And ((TblDesconto_Detail.De) <= '" & Me.TxUmidade & "') And ((TblDesconto_Detail.Ate) >= '" & Me.TxUmidade & "')))"
Set strSQl = CurrentDb.OpenRecordset(varsql)

ta dando
erro em tempo de execução ; 3464
tipo de dados incompativel na expressão critério;

Os valores são 14,5 e rotorna 0,75% não seria este o problema?

Aqui é impossivel fazer o teste, só se você anexar parte do seu banco, para se fazer um Break e acompanhar o código e os valores das variaveis.

Da uma olhada este é um form de teste.
é so digitar 14,5 no campo txUmidade e 2 no campo codigo

https://www.dropbox.com/s/p5i168mkgwlp178/sql.rar

é só baixar no link acima

Converta por favor para Access 2007.

segue arquivo devidamente convertido
https://www.dropbox.com/s/hxlqu8686wz0vnl/sql2007.rar

Ainda não foi desta, as tabelas estão vinculadas de outro banco.

Desculpa, agora acho que vai

Agora veio;

Teste por favor;


varsql = "SELECT tblDescontos.Aplicado, TblDesconto_Detail.IdProduto, TblDesconto_Detail.Idfaixa, TblDesconto_Detail.De, TblDesconto_Detail.Ate, TblDesconto_Detail.Desconto "
varsql = varsql & " FROM tblDescontos INNER JOIN TblDesconto_Detail ON tblDescontos.Código = TblDesconto_Detail.IdProduto "
varsql = varsql & " WHERE (((tblDescontos.Aplicado) = '" & Me.Umidade & "' And ((TblDesconto_Detail.IdProduto) = " & Me.Codigo & ") And ((TblDesconto_Detail.De) <= " & Replace(CDbl(Me.TxUmidade), ",", ".") & ") And ((TblDesconto_Detail.Ate) >= " & Replace(CDbl(Me.TxUmidade), ",", ".") & ")))"
Set strsql = CurrentDb.OpenRecordset(varsql)

Mestre é por ai mesmo, funcionou muito bem, agora vou adaptar no formulário e na rotina correta.
Não vou fechar o topico caso precise da sua ajuda.
Como tens notado qdo vai pro lado da SQL eu fico meio perdido, vc poderia, se não foce abusar, comentar o que foi feito para resolver e indicar um material para estudo, porque to apanhando muito com esse trem.

Obrigado mais uma vez

Obrigado pelo retorno o forum agradece.

Duas coisinha que fazem a diferença:

1ª Codigo é numerico, não leva aspas simples e é para Texto.

2ª Os valores com virgulas têm de ser tratados para ponto, ae o Replace.