Public Function StringAuslesen()
  Dim db As DAO.Database
  Dim rs3 As Recordset
  Dim rs4 As Recordset
  Dim rs5 As Recordset
  Dim ersterwert As Long
  Dim zweiterwert As Long
  Dim F1 As Integer
  Dim sResult As String
 
  ' Sortiertes Öffnen der Ergebnis-Datensätze
  Set rs3 = CurrentDb.OpenRecordset("select * from U_kat_Suchbegriffe order by" & _
    "IdNummer ASC")
 
  zweiterwert = rs3!IdNummer
  rs3.MoveNext
  While Not rs3.EOF
    ersterwert = zweiterwert
    zweiterwert = rs3!IdNummer
 
    ' Jetzt aus Recordset3 alles suchen was zwischen den beiden Werten liegt.
    Set rs4 = CurrentDb.OpenRecordset("SELECT * FROM TextReadIn WHERE " & _
      "IdNummer >= " & ersterwert & " AND IdNummer < " & zweiterwert)
 
    While Not rs4.EOF
      sResult = sResult & rs4!TextRead & "<br>"
       rs4.MoveNext
    Wend
    rs3.MoveNext
 Wend
  rs3.Close
  rs4.Close
  Set db = Nothing
 
  StringAuslesen = sResult
End Function

sHTML = Replace("Chiffre  !-- cls:kat:Chiffre --", StringAuslesen())