🚀 go-pugleaf

Wiem, że to już było kiedyś, ale znowu mam problem

Mam 1 tabelę tbFilie zawierającą adresy firm z polami:
tPaIDFilii | tPaNazwa |

i 2 tabelę tbTelefon zawierającą telefony firm z polami
tTelDFil | tTelNumer

Stworzyłem kwerendę, wykorzystującą funkcję DSumText autorstwa KN
SELECT tbFilie.tPaIDFilii, tbFilie.tPaNazwa, tbFilie.tPaMiejscowosc, tbTelefon.tTelNumer, DSumText([tTelNumer],[tbTelefon],"tPaIDFilii=" & [tPaIDFilii],[tPaIDFilii]) AS qTel, tbTelefon.tTelDFil
FROM tbFilie LEFT JOIN tbTelefon ON tbFilie.tPaIDFilii = tbTelefon.tTelDFil;

Chciałem, aby w polu 'qTel' pojawiły się wszystkie telefony danej firmy przedzielone przecinkiem.
Niestety, najpierw kwerenda żąda podania parametru '[tbTelefon]' a następnie wyświetla '#Błąd' w polu 'qTel'?

Co robię nie tak?

Użyta funcje to:
Public Function DSumText(sField As String, _
                  sTable As String, _
         Optional sWhere As String, _
         Optional sSep As String = ",") As Variant

  Dim rec As Recordset
  Dim strSQL As String
  Dim kon As String

  strSQL = "Select " & sField & " FROM " & sTable
  If Len(sWhere) > 0 Then
    strSQL = strSQL & " WHERE " & sWhere
  End If

  On Error GoTo err_exit
  Set rec = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
  With rec
    Do Until .EOF
      kon = kon & sSep & .Fields(0).Value
      .MoveNext
    Loop
    .Close
  End With
    kon = Mid(kon, Len(sSep) + 1)
    DSumText = kon
  Exit Function
err_exit:
End Function

Dziękuję za wyrozumiałość