Set db = CurrentDb
Set rs = db.OpenRecordset("Suche")    ' Hier stehen die gefundenen ID's drin
 
Open "C:Endergebnis.htm" For Output As #1   ' Schreiben der Ergebnisse
 
  spos = 0
  epos = 0
  spos = rs("ID")
  epos = rs("ID") + 1
 
        ' Alles zwischen sPos und ePos
          sTemp = epos - spos
          Set db2 = CurrentDb()    ' Tabelle mit Quelltext öffnen
          Set rs2 = db2.OpenRecordset("Text", dbOpenDynaset)   ' Hier stehen 
          ' die gleichen ID's + die Inhalte drin
          Print #1, sTemp
 
      db2.Close
      db.Close
      Set db2 = Nothing
      rs2.Close: Set rs2 = Nothing
      rs.Close: Set rs = Nothing
      Set db = Nothing
 
Close #1