在查询结果中有选择的挑选列值，可以吗？

Dim dr As OracleDataReader
                    dr = cxcmd.ExecuteReader()
                    While dr.Read '读取Reader中数据
                        Select Case dr.Item("ye")
                            Case 111
                                zz3y = dr.Item("ye")
                            Case 112
                                zz6y = dr.Item("ye")
                            Case 113
                                zz1n = dr.Item("ye")
                            Case 114
                                zz2n = dr.Item("ye")
                            Case 115
                                zz3y = dr.Item("ye")
                            Case 116
                                zz5n = dr.Item("ye")
                            Case 117
                                zz8n = dr.Item("ye")
                            Case 121
                                lz1n = dr.Item("ye")
                            Case 122
                                lz3n = dr.Item("ye")
                            Case 123
                                lz5n = dr.Item("ye")
                            Case 0
                                zye = dr.Item("ye")
                            Case 2
                                hq = dr.Item("ye")
                        End Select