Sub Word_Click(Tag As String)
Dim sField As String = "Concat("
For i=1 To 27
sField = sField & "F" & i & ","
Next
sField = sField.SubString2(0,sField.Length-1) & ")"
Dim c As Cursor
c = SQL1.ExecQuery($"SELECT * FROM Verses WHERE ${sField} LIKE '%${Tag}%'"$)
Log("Number of match is " & c.RowCount)
End Sub