MsgBox "SQL - Anfang"
 
            Dim EingabeSQL As String
            If StrPtr(Suchobject) = 0 Then Exit Sub  'Benutzereingabe wurde 
            ' abgebrochen
            EingabeSQL = "SELECT * FROM Daten WHERE Title Like '*" & _
              Me.Suchobject & "*' or Description Like '*" & Me.Suchobject & "*'" & _
              "or Keywords Like '*" & Me.Suchobject & "*' or Author Like '*" & _
              Me.Suchobject & "*' or Source Like '*" & Me.Suchobject & "*' or" & _
              "Date of information Like '*" & Me.Suchobject & "*' or Date of" & _
              "creation Like '*" & Me.Suchobject & "*' or Owner Like '*" & _
              Me.Suchobject & "*' or Type Like '*" & Me.Suchobject & "*' or" & _
              "Attachment Like '*" & Me.Suchobject & "*'"
 
            'Kontrollausgaben
            MsgBox "Ausgabe 'EingabeSQL' : " & EingabeSQL

Keine Ahnung aber grosses Mundwerk.