[Resolvido]Sql no VBA não acha o registro

Prezados, tenho uma consulta em sql que não retorna o registro. Todos os campos são string.

"SELECT * FROM TblObsrelacaoMisturas where diagnostico= """ & TxtCodimuno & """" & " and concentracao= """ & TxtCodilui & """" & " and volume= """ & TxtCodvol & """" & " and itens like " & "'" & "*" & NumeroItens & "*" & "'" & " and porcento= """ & ComPorcentagem & """"

Segue resultado da janela imediata:
SELECT * FROM TblObsrelacaoMisturas where diagnostico= "AP5" and concentracao= "y1" and volume= "5" and itens like '*2*' and porcento= ""

Dá certo até o campo itens. O que estou errando?
Obrigado

boa tarde,
arrumei apenas a construção da consulta, nao sei se sua logica esta correta.

segue:
"SELECT * FROM TblObsrelacaoMisturas where diagnostico= '" & TxtCodimuno & "' and concentracao= '" & TxtCodilui & "' and volume= '" & TxtCodvol & "' and itens like '*' and NumeroItens like '*' and porcento= '" & ComPorcentagem & "'"

Ruiborges escreveu:SELECT * FROM TblObsrelacaoMisturas where diagnostico= "AP5" and concentracao= "y1" and volume= "5" and itens like '*2*' and porcento= ""

Cria uma consulta com esse SQL e veja se retorna alguma coisa

Segui as duas sugestões e vi que o problema é que na tabela o campo [porcento] quando não tem informação é "Null" aí ,
porcento= "" ou porcento='' não retorna nenhum resultado.
Tentei: { and (porcento= """ & ComPorcentagem & """ or porcento is null) } mas não deu certo também.

Olá Rui Borges,

Procure "quebrar" o select em várias linhas, concatenando-as.
Coloquei uma condição onde verifica se o valor é NULL.
Segue:

Código:


Dim sSQL As String

sSQL = "SELECT FROM TblObsrelacaoMisturas "
sSQL = sSQL & " WHERE diagnostico= '" & Trim(TxtCodimuno) & "' "
sSQL = sSQL & " AND concentracao= '" & Trim(TxtCodilui) & "' "
sSQL = sSQL & " AND volume= '" & Trim(TxtCodvol) & "' "
sSQL = sSQL & " AND itens LIKE '*' "
sSQL = sSQL & " AND NumeroItens LIKE '*' "
sSQL = sSQL & " AND porcento= " & IIf(IsNull(ComPorcentagem), "NULL", ComPorcentagem) & ""




Boa sorte

Obrigado pela colaboração de todos. O meu código ficou assim:
strSQL = "SELECT * FROM TblObsrelacaoMisturas"
strSQL = strSQL & " WHERE diagnostico= """ & Trim(TxtCodimuno) & """"
strSQL = strSQL & " AND concentracao= """ & Trim(TxtCodilui) & """"
strSQL = strSQL & " AND volume= """ & Trim(TxtCodvol) & """"
strSQL = strSQL & " AND itens LIKE '*" & NumeroItens & "*'"
strSQL = strSQL & " AND (porcento " & IIf(ComPorcentagem = "", "is Null" & " or porcento="""")", "=""" & ComPorcentagem & """)")

Muito obrigado