Option Explicit
Dim Eingabe as String
Dim Datentabelle as String
Dim Tabelle as TableDef
Dim RSC as Recordset
 
Export ist die Datenbank
 
Private Sub Form_Load()
Eingabe = frmMain.txtSuche.Text
    For Each Tabelle In Export.TableDefs
    Datentabelle = Tabelle.Name
    SQL = ""
    SQL = "SELECT * FROM " & Datentabelle & " WHERE Name LIKE '*" & Eingabe & _
      "*'"
    Set RSC = Export.OpenRecordset(SQL, dbOpenForwardOnly)
        If RSC.RecordCount > 0 Then
            While Not RSC.EOF
                lstAusgabe.AddItem RSC("Name")
                RSC.MoveNext
            Wend
        End If
    RSC.Close
    Next Tabelle
Exit Sub