MsgBox "SQL - Anfang"
 
       Dim EingabeSQL As String
       If StrPtr(Suchobject) = 0 Then Exit Sub  'Benutzereingabe wurde 
       ' abgebrochen
       EingabeSQL = "SELECT * FROM Daten WHERE Daten Like '*" & Me.Suchobject & _
         "*'"
 
       'Kontrollausgaben
       MsgBox "Ausgabe 'EingabeSQL' : " & EingabeSQL

Keine Ahnung aber grosses Mundwerk.