Dim SQL as Sting
Dim Suche1 as String, Suche2 as String
 
SQL = "select DSN,name, IDX_firma, email, idx_name FROM AD " & _ 
  "WHERE Kennung Like '" & SucheOrt1 & "%' and Ort Like '" & SucheOrt2 & "%' " _
  & _  
  "or IDX_Name Like '" & SucheOrt1 & "%' and Ort Like '" & SucheOrt2 & "%' " & _ 
  "or IDX_Firma Like  '" & SucheOrt1 & "%' and Ort Like '" & SucheOrt2 & "%' " _
  & _ 
  "or Stichwort2 Like  '" & SucheOrt1 & "%' and Ort Like '" & SucheOrt2 & "%' " _
  & _  
  "or Stichwort Like    '" & SucheOrt1 & "%' and Ort Like '" & SucheOrt2 & "%' "