Sub btnSearch_Click
'Conducts Db wildcard search and sends results as HTML string to 'SearchResults' module
ActivityIndicator1.Visible = True 'Defn exists in layout and Process_Globals
Private Events As ResultSet
Private EventCount As Int
Private Clue as String = txtClue.Text
Private Query As String
Private SearchResult As String
Private sb As StringBuilder
Query = "SELECT Event, FromYr, ToYr FROM Events WHERE Event LIKE ? ORDER BY FromYear"
Events = Main.SQL1.ExecQuery2(Query,Array As String("%" & Clue & "%"))
sb.Initialize
sb.Append("<b><font size='5'>Word Search For '" & Clue & "'</font></b><br><br>")
Do While Events.NextRow
Dim Event As String = Events.GetInt("FromYr") & " - " Events.GetInt("ToYr") & ": " & Events.GetString("Event")
EventCount = EventCount +1
sb.Append(Event & "<br><br><hr size=2>")
Loop
If EventCount = 0 Then sb.Append("Clue returned no results")
SearchResult = "<html><body>" & sb.ToString & "</body></html>"
ActivityIndicator1.Visible = False
SearchResults.Show ("Word Search",SearchResult) 'Module to display the HTML string in a WebView
End Sub