Public Function Search(ByVal a As String) As String Dim sbSQL As System.Text.StringBuilder = New System.Text.StringBuilder() sbSQL.Append("SELECT * FROM Articles WHERE") Dim words As String For Each words In a.Split(" ") If words.Trim().Length > 0 Then sbSQL.Append(" ArticleTitle LIKE '%") sbSQL.Append(words + "%' OR ArticleKeywords LIKE '%") sbSQL.Append(words + "%' AND") End If Next Dim SQL As String SQL = sbSQL.ToString() SQL = SQL.Substring(0, SQL.Length - 5) Return SQL End Function