Public Function lstSearcher(fldSelect As String, tblFrom As String, fldWhere As String, txtIsLike As TextBox, lstFindHere As ListBox)
Dim db As DAO.Database, rs As DAO.Recordset, strSQL As String
Set db = CurrentDb
strSQL = "SELECT " & fldSelect & " FROM " & tblFrom & " WHERE " & fldWhere & "...