you could try this code instead

dim strParm as string
dim strSearchme as string

strSearchme = InputBox("Please enter info to search for")
if not strSearchme = "" then
strParm = "Select * from [Name of your Table here] _
where [Field name here] = '" & strSearchme & "' Order by _
[Field Name] ASC"
data1.recordset.recordsource = atrparm
data1.refresh
end if

'This just passes an SQL search to an access database you
'attached to data1 hopefully this is self explanitory if not
'email me    Jason

   -**** Posted from RemarQ, http://www.*-*-*.com/ ****-
 Search and Read Usenet Discussions in your Browser - FREE -