关于select case 的一个小问题

Question

Private Sub Command1_Click()
    Dim i As String
    i = InputBox("请输入一个字符串")
    Select Case i
        Case "DVD"
            Combo1.ListIndex = 1
        Case "CD"
            Combo1.ListIndex = 2
    End Select
End SubPrivate Sub Form_Load()
    Combo1.AddItem ("DVD")
    Combo1.AddItem ("CD")
End Sub 为什么上面的程序可以运行。下面的就运行不了呢？Private Sub Command1_Click()
 Set rec = New ADODB.Recordset
 rec.open "select playtype from goods where goodsid=1001011", con
    Select Case rec!playtype     '为什么换成记录集了就不行了？？？
        Case "DVD"
            Combo1.ListIndex = 0
        Case "CD"
            Combo1.ListIndex = 1
    End Select
End Sub

Answer 1

没有错误提示。运行时从每个[Case expression]上过一遍之后，就end select了。根本不执行case 下面的语句。
不清楚我说明白否？

Answer 2

这样试试：Select Case trim(ucase(rec!playtype))    '小写转换成大写，去掉左右空格