为什么不能显示所有选项(CheckBoxList)？？？？？？？？？？？？？？？？

我是业务对象中写了一个函数：Public Function showDept() as OleDbDataReader 
'显示用户
Dim Conn as OleDbConnection
Dim Cmd As OleDbCommand
Conn = New OleDbConnection(configurationSettings.AppSettings("dsn"))
Cmd = New OleDbCommand("sp_seldeptAll", Conn)
     Cmd.CommandType = CommandType.StoredProcedure
Try
'执行存储过程
Cmd.Connection.Open()
showDept=Cmd.ExecuteReader
Catch ex As OleDbException
     Throw ex
End Try
End Function在WEB端使用：
Sub showDept()
'显示选择部门
Dim Reader as OleDbDataReader
Dim objUser as new RealmWeb.User
Reader=objUser.showDept
While Reader.Read()
rlDept.Items.Add(Reader.GetString(1))
Reader.Read
End While
Reader.Close
End Sub不知道为什么不能读取所有数据项？？
存储过程没有任何问题，业务对象也编译通过
但是我有一个同样的函数，将返回的数据绑定在datagrid上，却能显示所有数据，不知道是怎么回事