[ Συναρτήσεις ] Εύρεση με ερωτηματικό σύμβολο

[artchrist73]

ΚΑΛΗ ΧΡΟΝΙΑ ΣΕ ΟΛΟΥΣ.ΕΥΧΟΜΑΙ ΕΥΤΥΧΙΑ ΧΑΡΑ ΥΓΕΙΑ !!!!!!!

έχω ανεβάσει ένα κώδικα που αναζητώντας από ένα πεδίο θα ήθελα να μου δείξει κάποιος με ποιο τρόπο θα μπορώ να κάνω αναζήτηση με ερωτηματικό.

π.χ. palmolive 400 ml σαμπουαν
αναζήτηση: palmolive?400
ή σαμουαν?palmolive
είδη κάνω αναζήτηση με αστεράκι απλά η αντιστοιχία να είναι στο σύμβολο --> *
-----------------------------------------------------------------------------------
εδώ έχω τον κώδικα από το πεδίο---->

Private Sub TxtSearch_Change()
XS = TxtSearch.Text
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