Pessoal

Seguinte,
Tenho uma função no Access para torna meus Join Case Sensitive, segue abaixo:
************************************************************************************************
Option Compare Database
Function compara_texto(texto1 As String, texto2 As String) As Integer

compara_texto = StrComp(texto1, texto2, 0)

End Function
*********************************************************************************************
Quando coloco em uma consulta no Access, ela roda normal, mas ao tentar executar pelo Excel(VBA), ele não devolve nenhum resultado.
Segue abaixo Macro do Excel:

*********************************************************************************************

Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Dim strDB As String
Dim strSQL As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

strDB = "C:UsersEuDesktopDB_Emrpesa_Boletim.accdb"
cn.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & strDB & ";"
cn.Open

Sql = ("SELECT TMP.DATA, TMP.HORA, TMP.STATUS, TMP.ORIGEM, TMP.DESQ, Count(TMP.ID) AS ContarDeID " & _
" FROM (SELECT DISTINCT TA.[Data de criação] AS DATA, FORMAT(TA.[Hora de criação],'HH') AS HORA, TC.[Data de criação] AS DATA_ATV " & _
" , TA.[Status do lead] AS STATUS, TA.[Origem do lead] AS ORIGEM, TA.[Motivo da desqualificação] AS DESQ, TA. _{" & _
" , TA.[Id Principal] AS ID FROM ((TB_BOLETIM_5_LEAD AS TA " & _
" INNER JOIN TB_BOLETIM_6_ATV_LEAD AS TB ON TA.[Id Principal]=TB.[Id Principal]) " & _
" INNER JOIN TB_BOLETIM_3_ATV AS TC ON TB.[ID da atividade]=TC.[ID da atividade]) " & _
" WHERE TA.[Data de criação]=#" & Format(data, "m/d/yyyy") & "# AND TC.[Papel Atribuído] like '%TP%' " & _
" AND TA.[Convertido] = 0 " & _
" AND TA.[produto] <> 'Desqualificado' " & _
" AND compara_texto(TA.[Id Principal],TB.[Id Principal]) " & _
" AND compara_texto(TB.[ID da atividade],TC.[ID da atividade])) AS TMP " & _
" GROUP BY TMP.DATA, TMP.HORA, TMP.STATUS, TMP.ORIGEM, TMP.DESQ;")
Set rs = cn.Execute(Sql),
cn.Close}

************************************************************************************************