strSQL = "SELECT tblLog.Date, tblLog.Comments, tblLog.Client, tblLog.[Number of Accounts], tblLog.[User ID], tblLog.[Value of Accounts], tblAction.[Action Description], tblLog.[File Location], tblLog.[Creditor ID], '' AS ID INTO tblSearchResults FROM tblLog INNER JOIN tblAction ON tblLog.Action = tblAction.ActionId WHERE (((tblLog.[User ID]) Like 'User12'));"
DoCmd.RunSQL (strSQL)
strSQL2 = "CREATE INDEX idxID ON Tracking.tblSearchResults (ID);"
DoCmd.RunSQL (strSQL2)