working with SQL command Like

Make a form with
a listbox = List1
an textbox = txtSearch
a commandbutton = cmdGo
assuming there's a database in the 'c:\win' directorie with the name 'test.md'
with a table called 'testing' which contains two fields: 'name' and 'adress'

'on Form1.general
Dim ds as recordset, db as database
Dim criteria$

Const databasenaam="c:\win\test.mdb"
Const tablename="testing"

Sub Form1_load
 set db=opendatabase(databasename)
 txtSearch.text=""
end sub

Sub cmdGo_Click
 Dim SQL$

 criteria$= "*" & txtSearch & "*"
 SQL$= "SELECT * FROM " & tablename & " WHERE name ='" & _
  criteria$ & "'"
 set ds = db.openrecordset(SQL$)
 do while not ds.eof
  List1.additem ds("name") & " " & ds("adress")
  ds.movenext
 loop
 ds.close
end Sub