Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim pos As Long
Dim target As String
Dim html As String
Dim rs2 As Recordset
 
Set db = CurrentDb
Set rs = db.OpenRecordset("TextReadIn")
 
<font color=green>' Tabelle mit den Begriffen öffnen</font>
Set rs2 = db.OpenRecordset("Begriffe")
 
Do Until rs.EOF
  rs2.MoveFirst
  Do Until rs2.EOF
    pos InStr(rs("TextRead"), rs2("Feld"))
    If pos > 0 Then  <font color=green>' Vergleich erfolgreich
        ' ....in *.txt schreiben</font>
    Else
      <font color=green>' in vorlage.htm schreiben
      ' ...</font>
    End If
    rs2.Movenext
  Loop
  rs.Movenext
Loop
rs2.Close: Set rs2 = Nothing
rs.Close: Set rs = Nothing
Set db = Nothing