select case ORecency case "A" ORecencySQL = "" case "B" ORecencySQL = ORecencySQL & " LatestDate not between '" & date1 & "' and '" & date0 & "')" case "C" ORecencySQL = ORecencySQL & " LatestDate not between '" & date3 & "' and '" & date0 & "')" case "D" ORecencySQL = ORecencySQL & " LatestDate not between '" & date6 & "' and '" & date0 & "')" case "E" ORecencySQL = ORecencySQL & " LatestDate not between '" & date9 & "' and '" & date0 & "')" case "F" ORecencySQL = ORecencySQL & " LatestDate not between '" & date12 & "' and '" & date0 & "')" case "G" ORecencySQL = ORecencySQL & " LatestDate not between '" & date18 & "' and '" & date0 & "')" case "H" ORecencySQL = ORecencySQL & " LatestDate not between '" & date24 & "' and '" & date0 & "')" case "I" ORecencySQL = ORecencySQL & " LatestDate not between '" & date36 & "' and '" & date0 & "')" case "J" 'ORecencySQL = ORecencySQL & " LatestDate not between '" & date12 & "' and '" & date18 & "')" ORecencySQL = ORecencySQL & " LatestDate not between '" & date18 & "' and '" & date12 & "')" case "K" 'ORecencySQL = ORecencySQL & " LatestDate not between '" & date12 & "' and '" & date24 & "')" ORecencySQL = ORecencySQL & " LatestDate not between '" & date24 & "' and '" & date12 & "')" case "L" 'ORecencySQL = ORecencySQL & " LatestDate not between '" & date12 & "' and '" & date36 & "')" ORecencySQL = ORecencySQL & " LatestDate not between '" & date36 & "' and '" & date12 & "')" case "M" 'ORecencySQL = ORecencySQL & " LatestDate not between '" & date24 & "' and '" & date36 & "')" ORecencySQL = ORecencySQL & " LatestDate not between '" & date36 & "' and '" & date24 & "')" case "N" ORecencySQL = ORecencySQL & " LatestDate > '" & date12 & "')" case "O" ORecencySQL = ORecencySQL & " LatestDate > '" & date24 & "')" case "P" ORecencySQL = ORecencySQL & " LatestDate > '" & date36 & "')" case "Q" ORecencySQL = ORecencySQL & " LatestDate < '" & date48 & "')" case "R" 'ORecencySQL = ORecencySQL & " LatestDate not between '" & date36 & "' and '" & date48 & "')" ORecencySQL = ORecencySQL & " LatestDate not between '" & date48 & "' and '" & date36 & "')" case "S" ORecencySQL = ORecencySQL & " LatestDate > '" & date48 & "')" case "T" ORecencySQL = ORecencySQL & " LatestDate not between '" & date48 & "' and '" & date24 & "')" end select