Set rs = Db.OpenRecordset("Daten")
        nCount = rs.RecordCount            'Anzahl der Datensätze ermitteln = 
        ' nCount
 
        rs.MoveFirst                       'Gehe zum erstem Datensatz
 
        While Not rs.EOF 'Solange das Ende des Recordset nicht erreicht ist 
        ' ausgeben und zum nächsten Feld
 
            If IsNull(Me.Attachment) Then     'Wenn Attachment leer ist -> 
            ' nächster Datensatz
                rs.MoveNext
            Else
                'SUCHE in "ATTACHMENT" nach "Suchtext"
                lngPos = SearchFileForText("" & CStr(Me.Attachment), "" & CStr( _
                  Me.Suchobject))
 
                If lngPos > 0 Then                  'Wenn String gefunden wurde
 
                    'TODO!!! Ausgabe des jeweiligen Attachments
                    MsgBox "Gefunden an Position " & CStr(lngPos) _
                      '!!!!!!!!!!!!!!!!!!!!!!
 
                Else
                    rs.MoveNext                     'Wenn NICHTS im Attachment 
                    ' gefunden wurde -> 'nächster Datensatz
                End If
            End If
            rs.MoveNext   'Kein aktueller Datensatz - Laufzeitfehler 3021     
            ' Nach Ausgabe des Attachments -> nächster Datensatz
 
        Wend

Keine Ahnung aber grosses Mundwerk.