searching for words

i wish to know how to set up a simple but effecient control button that allows you to search for a word in a database. (even one with only 3 words would help!)nothing to advanced though since im only a begginer. anyones help would be greatly appriciated!

This will search a field in an open (ado) recordset:

private Sub Command1_Click()

Dim cnn as new ADODB.Connection
Dim rst as new ADODB.Recordset

cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.open "c:\mydatabase.mdb"

rst.open "mytable",cnn

rst.Find "myfield like '*" & text1.text & "*'"

If rst.eof then
Msgbox "No records found"
else
Msgbox "Found a record!"
end if

End Sub




Tom Cannaerts
[email protected]

Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the universe trying to produce bigger and better idiots. So far, the universe is winning -- Rich Cook