'SQL-Abfragestring erstellen - ***Anfang***
SQL = "SELECT * FROM Objekt_Daten WHERE Objekt"
 
'Falls nach exakt dem eingegebenen Begriff gsucht werden soll:
If (intExakt = 1) Then
 SQL = SQL + "='" + strSuchText + "'"
Else 'Falls alle Objekte gesucht werden sollen, in denen der eingegebene 
' Begriff vorkommt:
 SQL = SQL + " Like '*" + strSuchText + "*'"
End If
 
SQL = SQL + " ORDER BY Strasse" '***Ende***
'Recordset auf Basis dieses Abfragestrings öffnen
Set rs = db.OpenRecordset(SQL)