Private Sub Liste1_Click()
Dim SuchParameterListe2 as String (oder Integer bei Index)
'......
'......Recordset f. Liste 2 öffnen
Dim SQLListe2 as String
sqlListe2 = "Select * FROM Liste2.Tabelle Where HerstellerName LIKE'" & _
  SuchParameterListe2 &"'"
rsListe2.Open, sqlListe2,,,,adCmdText