' Ersetzt die Leerzeichen mit >> ',' <<
vSearch = " ": vReplace = "','": vString = Replace(strText, vSearch, vReplace)
 
' sqlString -> größere Sql-Abfrage über 3 Tabellen - funktioniert ohne Probleme
 
With grid1
  Set .Recordset = oDB_ShopDB.OpenRecordset(sqlString & " WHERE (P.Name IN ('" _
    & vString & "') OR P.EAN IN ('" & vString & "') OR P.ProductID IN ('" & _
    vString & "')) AND PD.ElType = 2 ORDER BY P.Name")
  .Refresh
  .Row = 1
End With

Set .Recordset = oDB_ShopDB.OpenRecordset(sqlString & " WHERE P.Name IN ('" & _
  vString & "')")

Set .Recordset = oDB_ShopDB.OpenRecordset("Select Name From Products WHERE Name" & _
  "IN ('Produktname')")