如何逐条读取数据记录?

做一个统计,控件需要统计的数据,需要将查询的记录逐条加载
比如 
 Dim sql As String = "select d_xb,count(d_xb) as zs from dybase_view where " & strwhere & "group by d_xb"
        Dim cmd As New SqlCommand(sql, cnn)
        Dim datar As SqlDataReader
        Try
            cnn.Open()
            datar = cmd.ExecuteReader            While (datar.Read)
                Dim strxb As String
                Dim strzs As Integer
                strxb = datar("d_xb")
                strzs = datar("zs")
                myPane.AddPieSlice(strzs, Color.Navy, Color.White, 45.0F, 0, strxb & strzs)
                
            End While        Catch ex As Exception
            Console.WriteLine(ex)
        Finally            cnn.Close()
        End Try
这样写只能得到第一条记录,后面多条记录就停止循环了.请请教一下了怎么写