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