Not Searching

Hi

Dim strsearch, strsql As String
strsearch = InputBox("Search For", "Search Input Box")
strsql = "SELECT * FROM m_itemmaster WHERE icode LIKE " & Chr(34) & strsearch & Chr(34)
Openrstitem (strsql)

Secondly i want if user enters * in inputbox it fills listview with all records , no filter.

What value i enter it does not search where as record exists

Thanks

Look slike you have basically the same question in 3 different threads already. You should limit it to one thread per question even though this question is slightly different than the one in the other 2 threads it is still close enough that it could be considered the same question,