Like operator

[sillylady]

Hi thanks for your solution. It works with a little bit of changes.

Thanks

When you perform your comparison, you are searching for Like "*Bank, NBFI*". You would need to be able to ammend your query to add a Like clause for each keyword:

Dim sSql
Dim arrKeyWord
Dim i
 
arrKeyWord = Split(sKeyWordString, ",")
 
sSql = "Select * From myTable Where "
For i = LBound(arrKeyWord) To UBound(arrKeyWord)
    sSql = sSql & "keywordfield Like '*" & arrKeyWord(i) & "*' AND "
Next
'Remove the trailing AND
sSql = Left(sSql, Len(sSql) - 5)

Or something to that effect.