Private Sub btnSearch2_Click()
Dim SQL2 As String
SQL2 = "SELECT [Source1].Column1, [Source1].[Column2], [Source1].[Column2], [Source1].[Key Term], [Source1].[Column4], [Source1].[Column5], [Source1].Column6, [Source1].[Column7], [Source1].Column8, [Source1].Column9, [Source1].[Column10] " _
& "FROM [Source1] " _
& "WHERE [Column1] LIKE '*" & Me.txtSearchBox & "*' " _
& " OR [Column2] LIKE '*" & Me.txtSearchBox & "*' " _
& " OR [Key Term] LIKE '*" & Me.txtSearchBox & "*' " _
.
.
. etc
& "ORDER BY [Source1].[Column3] DESC; "
Me.subPublications2.Form.RecordSource = SQL2
Me.subPublications2.Form.Requery
End Sub