Lascia perdere la case (sbagliata e inutile) e scrivi semplicemente

cmb_XXX.ListIndex = Val(Right(Rs.Fields("XXX").Value, 1))

P.S. Non l'avevo notato ma concordo con Grumpy ...