Encadenar valores de una tabla(Mihura)

   Estoy intentando utilizar esta rutina de Mihura, pero no la hago funcionar, algo me debo estar perdiendo.
La rutina esta en un modulo, me he creado una tabla como en el ejemplo de Mihura TPR1, pero nada, no me sale ni a la de tres...
http://www.accessaplicaciones.com/ejemplos.html

Ejemplo encadenar valores de una tabla.

'--------------------------------------------------------------------------------------------- 
' Autor : JESUS MANSILLA CASTELLS -Mihura-	
'--------------------------------------------------------------------------------------------- 
Function RT_Encadenar(Separador As String, Tabla As String, Campo As String, Optional Condición As String) As String 
'** Es un destrozo de una de Raipon 
'** RT_Encadenar(' - ', 'NombreTabla', 'CampoAVisualizar', 'Condicion') 
'** RT_Encadenar(' - ', 'Tabla LEFT JOIN Tabla1 ON Tabla.codi = Tabla1.codi1', 'Descripcion_tasi', 'Codprofesor_aspr = 10') 
'** RT_Encadenar(' - ', 'Tabla LEFT JOIN Tabla1 ON Tabla.codi = Tabla1.codi1', 'Descripcion_tasi', 'Codprofesor_aspr = ' & CampoTabla) 
Dim MiTablaRT As Recordset 
On Error Resume Next 

     RT_Encadenar = "" 
     ' 
     Set MiTablaRT = DbExterna.OpenRecordset("SELECT " & Campo & " AS Resultado FROM (" & Tabla & ") WHERE " & Campo & " Is Not Null" & IIf(Len(Condición) > 0, " AND " & Condición, ""), dbOpenForwardOnly) 
         If Err.Number > 0 Then 
             RT_Encadenar = "" 
             rst.Close 
             Exit Function 
         End If 
     Do Until MiTablaRT.EOF 
         If Len(RT_Encadenar) = 0 Then 
             RT_Encadenar = MiTablaRT!Resultado 
           Else 
             RT_Encadenar = RT_Encadenar & Separador & MiTablaRT!Resultado 
         End If 
         MiTablaRT.MoveNext 
     Loop 
     MiTablaRT.Close 

End Function 