Dim SQL As String
Dim Rs1 As DAO.Recordset
Dim Db1 As Database
 
Dim Tabelle as DAO.TableDef
 
Set Db1 = OpenDatabase(strDBFileName)
 
 
for each Tabelle in Db1.TableDefs
 
SQL="SELECT * FROM " & Tabelle.Name & " WHERE ...." 'hier muss der Suchausdruck 
' ergänzt werden
 
set Rs1.openRecordset(SQL)
'hier muss dann die Ausgabe/Anzeige der in der aktuellen Tabelle gefundenen 
' Datensätze erfolgen
 
rs1.close
 
next Tabelle