[Resolvido]Tipos incompatíveis - RowSource

Boa tarde Amigos,

Oque poderia estar de incorreto nessa instrução?

VBA: Erro 13 - Tipos incompatíveis
Já tentei com e sem os " & _" para nova linha!

Código:


Dim strListBox As String

strListBox = "SELECT tab_colaboradores.RE, tab_colaboradores.Nome AS Colaborador, tab_colaboradores.CentroCusto " & _
"FROM tab_colaboradores " & _
"WHERE(((tab_colaboradores.RE) Like [Forms]![fml_solicitante].[txt_re].[Text] & " * ") And ((tab_colaboradores.Nome) Like [Forms]![fml_solicitante].[txt_nome].[Text] & " * ") And ((tab_colaboradores.CentroCusto) Like [Forms]![fml_solicitante].[CentroCusto] & " * ")) " & _
"ORDER BY tab_colaboradores.Nome;"

Me.epis2.RowSource = strListBox

Consulta:
Quero execultar a seguinte instrução da consulta a partir de um botão, por exemplo.

Código:

SELECT tab_colaboradores.RE, tab_colaboradores.Nome AS Colaborador, tab_colaboradores.CentroCusto
FROM tab_colaboradores
WHERE (((tab_colaboradores.RE) Like [Forms]![fml_solicitante].[txt_re].[text] & "*") AND ((tab_colaboradores.Nome) Like [Forms]![fml_solicitante].[txt_nome].[text] & "*") AND ((tab_colaboradores.CentroCusto) Like [Forms]![fml_solicitante].[CentroCusto] & "*"))
ORDER BY tab_colaboradores.Nome;

Algo assim....


Dim strListBox As String

strListBox = "SELECT tab_colaboradores.RE, tab_colaboradores.Nome AS Colaborador, tab_colaboradores.CentroCusto " & _
"FROM tab_colaboradores " & _
"WHERE(((tab_colaboradores.RE) Like [Forms]![fml_solicitante]![txt_re]![Text] & " * ") And ((tab_colaboradores.Nome) Like [Forms]![fml_solicitante]![txt_nome]![Text] & " * ") And ((tab_colaboradores.CentroCusto) Like [Forms]![fml_solicitante]![CentroCusto] & " * ")) " & _
"ORDER BY tab_colaboradores.Nome;"

Me.epis2.RowSource = strListBox

Só não sei se...[txt_nome]![Text]...esse [text] vai receber algum texto. Se não, apaga da rotina.

Bom dia,

Acabei solucionando o problema de outra forma, onde não envolvi código.

Obrigado, resolvido!