[Tasos]

Καλησπέρα και χρόνια πολλά σε όλους!

Αντώνη δοκίμασε:

Private Sub TxtSearch_Change()
    XS = txtSearch.Text
    If Right(XS, 1) = " " Then Exit Sub
    If InStr(1, XS, " ") Then
        XS = Replace(XS, " ", "*")
    End If
    On Error Resume Next
    sqlStr = "[Conc] Like '" & "*" & XS & "*" & "'"
    If DCount("*", Me.Recordset.Name, sqlStr) = 0 Then
        Me.txtSearch = strAlt
    Else
        Me.Filter = sqlStr
        Me.FilterOn = True
        strAlt = XS
    End If
    If XS = vbNullString Then Me.FilterOn = False
    Me.txtSearch.SetFocus
    Me.txtSearch.SelStart = Nz(Len(XS))
End Sub

Δεν θα χρειαστείς ερωτηματικό. Απλά πληκτρολογείς palmolive 4,

Αν πληκτρολογήσεις palmolive και κενό η αναζήτηση δεν θα εφαρμοστεί.
Αν πληκτρολογήσεις palmolive-κενό και έναν χαρακτήρα, η αναζήτηση συνεχίζεται κανονικά.

Καλή συνέχεια!

Τάσος