Error 3061 VBA ACCESS al ejecutar SQL con filtro

Pues es exactamente eso.

Si corro desde VBA el SQL con una cláusula where me devuelve siempre ese error.

si le quito la condición ya no falla. Me tiene loco.

Es más, si hago una consulta sin filtros con origen otra que sí los tiene también me falla.

Alguna idea? Es que me tiene loco.

Por si lo quieres ahí te va el código VBA que estoy utilizando.

Un saludo y muchas gracias por adelantado.

la función es la que corre todo y la sub es de llamada de prueba

los msgbox que aparecen son de control míos, mientras todo corre:

Ah, me olvidaba, los where están en las consultas hechas en modo gráfico, en access, aquí no los estoy usando nunca(Por mi inexperiencia, je je)

 
Public Function ConcatenarCampo(NombreCampo As String, _ NombreTabla As String) As String Dim rst As DAO.Recordset 
Dim strSql As String
Dim strSep As String
Dim strRes As String
strSql = "SELECT " & NombreCampo
strSql = strSql & " FROM " & NombreTabla
Set rst = CurrentDb.OpenRecordset(strSql)
Do While rst.EOF = False strRes = strRes & rst.Fields(0) & " | "
MsgBox (strRes) rst.MoveNext Loop
ConcatenarCampo = strRes
End Function
Sub Prueba_concatenacion()
TempVars!mistrats = ConcatenarCampo("Id", "prb_cons_cita")
MsgBox (TempVars!mistrats)
End Sub