How to loop all datareaders field info and append to dropdownlist box

I have a datareader "gDatareader", it has 6 rows for field "orderno", is it possible to add all 6 rows info to a dropdownlist box ddlOrders using something like this:



                        Dim anItem As New ListItem
                        anItem.Value = s
                        anItem.Text = s1
                        anItem.Selected = False
                    &nbs ...