[Resolvido]Erro em Sql

Olá bom dia, ta dando erro de Sintaxe e como tenho pouco conhecimento em SQL, se alguem poder me ajudar agradeço
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.[Código]) And ((TblDesconto_Detail.De) <= Me.TxUmidade) And ((TblDesconto_Detail.Ate) >= Me.TxUmidade)))

Já resolvi o problema da sintaxe, ficou assim:
Dim varsql As String
Dim strsql As Recordset

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) = '&[Formulários]![Frmteste]![Umidade]' And ((TblDesconto_Detail.IdProduto) = '&[Formulários]![Frmteste]![Código]') And ((TblDesconto_Detail.De) <= '&[Formulários]![Frmteste]![TxUmidade]') And ((TblDesconto_Detail.Ate) >= '&[Formulários]![Frmteste]![TxUmidade]')))"
Set strsql = CurrentDb.OpenRecordset(varsql)
Me.Txtotal = strsql("Desconto")

O unico probelma está na ultima linha, retorna dizendo que "o valor que vc inseriu não é valido para esta campo".
os campos TxUmidade são decimais tipo : 15,5 ou 14,9
e retorna no campo Desconto um avarlor tipo 0,75 ou 0,15
Acho que está ai oproblema porém não sei tratar como faço gente?