Dim strSQL, tmpSQL strSQL = "SELECT title, descript, url, uid FROM searchMachine WHERE " tmpSQL = "(keywords LIKE " Dim Pos Pos = 1 While Pos > 0 Pos = InStr(1, strSearch, " ") If Pos = 0 Then 'We have it the end tmpSQL = tmpSQL & "'%" & strSearch & "%')" Else tmpSQL = tmpSQL & "'%" & Mid(strSearch, 1, Pos) & "%' " & DefaultBoolean & " keywords LIKE " strSearch = Mid(strSearch, Pos + 1, Len(strSearch)) End If End While