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
 
' Sortiertes Öffnen der Ergebnis-Datensätze
Set rs3 = CurrentDb.OpenRecordset("select * from U_kat_Suchbegriffe order by" & _
  "IdNummer ASC")
 
' Ausgabe in eine Datei
Open "C:Endergebnis.txt" For Output As #1
 
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
             Print #1, rs4!TextRead
             rs4.MoveNext
        Wend
    rs3.MoveNext
 Wend
 
Close #1
rs3.Close
rs4.Close
Set db = Nothing