Public Sub cmdSearch_Click()
'Declarations'
Dim strSQL As String, strWhere As String, strOrder As String
Dim dbNm As Database
Dim qryDef As QueryDef
'Assignments'
Set dbNm = CurrentDb()
tblName = "tbl" & Me!cmbsource
strSQL = "SELECT [Page], [Date], Subject, Company, People...