Set rs = Db.OpenRecordset("Daten")
        nCount = rs.RecordCount            'Anzahl der Datensätze ermitteln = 
        ' nCount
 
        rs.MoveFirst                       'Gehe zum erstem Datensatz
 
        While Not rs.EOF
          If Not IsNull(Me.Attachment) Then
            ' SUCHE in "ATTACHMENT" nach "Suchtext"
            MsgBox "Attachment = " & Me.Attachment
            MsgBox "Suchobject = " & Me.Suchobject
            lngPos = SearchFileForText("" & CStr(Me.Attachment), "" & CStr( _
              Me.Suchobject))
            MsgBox "Suche in Attachment  lngPos = " & lngPos
            If lngPos > 0 Then
              'TODO!!! Ausgabe des jeweiligen Attachments
              MsgBox "Gefunden an Position " & CStr(lngPos)
              '!!!!!!!!!!!!!!!!!!!!!!
            End If
          End If
          rs.MoveNext
        Wend

Keine Ahnung aber grosses Mundwerk.