Is it just me, or if you saw code like this you'd be shaking your head saying, "What the...?"
Code:
Select Case (rsProductsRiders!Status)
Case Null
strFundingType = "S"
Case "Y"
strFundingType = "S"
Case "F"
strFundingType = "S"
Case "W"
strFundingType = "W"
Case "N"
strFundingType = "N"
Case "M"
strFundingType = "S"
Case "C"
strFundingType = "N"
Case Else
strFundingType = "S"
End Select