How to use "Like" in SQL Access to find Costumers in a Form (TextBox and a ListBox)
'(c) 2003 João Tito Lívio
'This code can only be use as a part of an Application and could not be sell
'To REQUEST a full functional sample please > Click
SQL
Using an SQL Querie
SELECT Customers.CompanyName, Customers.ContactName, Customers.ContactTitle
FROM Customers
WHERE (((Customers.CompanyName) Like "*" & [Forms]![Form1]![Text0] & "*"));
Using in JET (VBE)
Dim StrSql As String
StrSql = "SELECT Customers.CompanyName, Customers.ContactName, Customers.ContactTitle " & _
"FROM Customers " & _
"WHERE Customers.CompanyName Like & '"*" & Me.Text0 & "*"'