[Resolvido]Não consigo procurar dados em caixa de combinação

Olá,

Meu objetivo é clicar no botão de comando para procurar todos os dados escrito: Sem Informação.

Estou usando essa fórmula abaixo:

Código:

Private Sub Comando68_Click()
    If Me.FilterOn Then
        Me.FilterOn = False
    Else
        Me.Filter = "Nome='Sem Informação' or Profissao='Sem Informação' or Cidade='Sem Informação'"
        Me.FilterOn = True
    End If
End Sub


Porém a coluna Cidade nesse meu projeto eu uso como caixa de combinação. Será que o erro está ai?



Observação:
Eu usei essa mesma fórmula em outro projeto e deu certo, mas também não tinha nenhum coluna com caixa de combinação.

Olá, Alexandre

Obrigado pela ajuda.

Para entender a nova fórmula eu criei mais dois campos (Por exemplo: Time e Carro).

Apenas o campo "Carro" não deu certo fazer a busca da palavra = Sem Informação. Esse campo também uso caixa de combinação igual ao campo Cidade.

Segue abaixo a fórmula com as informações "novas" (Não tenho conhecimento profissional do Access).

Código:

Private Sub Comando68_Click()
Dim iCid As Integer
   
    iCid = DLookup("[Código]", "Cidade", "[Cidade] = 'Sem Informação'")
    iCid = DLookup("[Código]", "Carro", "[Carro] = 'Sem Informação'")
    Me.Filter = "[Nome] = ""Sem Informação"" OR Profissao = ""Sem Informação"" OR Time = ""Sem Informação"" OR Carro = " & iCid & "" Or Cidade = " & iCid & """
    Me.FilterOn = True
End Sub

Olá, Alexandre

Obrigado pela ajuda.

Apliquei a nova fórmula, mas apareceu a seguinte mensagem:

Erro em tempo de execução '13'.
Tipos incompatíveis.

Por favor, ajudar se possível.

Obrigado mais uma vez pela ajuda.

100% resolvido.