Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim pos As String
Dim target As String
Dim html As String
 
Set db = CurrentDb
Set rs = db.OpenRecordset("TextReadIn")
Do Until rs.EOF
    pos = InStr("Programmierung", rs("TextRead"))
    If pos > 0 Then  ' Vergleich erfolgreich
        ' ....in *.txt schreiben
    End If
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing
 
ToolBox.showFile target   ' Das dient nur zur Überprüfung
MsgBox "Erlädscht!", 64, "Info!"