Dim strSQL As String
strSQL = "SELECT RepositoryTable.LastName, RepositoryTable.FirstName, RepositoryTable.MI, RepositoryTable.ReportCode, ReportCode.AreaTitle, RepositoryTable.ClassCode, ClassCode.Classification, ClassCode.CBID, RepositoryTable.Change, RepositoryTable.DateLastUpdate
FROM...