DropDown not populating All records 1

[kurie]

i have a problem with a dropdown box in Ver3.5. My dropdown is replacing all values with the last record to be read from the datareader. if theere are 5 records, all the values will be the last one to be read. does anyone see what im doing wrong here. here is the code
Dim cboItem As New ListItem()
cboItem.Text = "Select Customer"
cboItem.Value = "0"
dwnCustomers.Items.Add(cboItem)
dwnCustomers.DataBind()
While SqlDtr.Read()
cboItem.Text = SqlDtr("CustomerID").ToString()
cboItem.Text = SqlDtr("Customer").ToString()
dwnCustomers.Items.Add(cboItem)
dwnCustomers.DataBind()
End While

 

[RiverGuy]

You need one extra line of code in your while loop.

Dim cboItem As New ListItem()
            cboItem.Text = "Select Customer"
            cboItem.Value = "0"
            dwnCustomers.Items.Add(cboItem)
            dwnCustomers.DataBind()
            While SqlDtr.Read()
                [b]cboItem = New ListItem[/b]
                cboItem.Text = SqlDtr("CustomerID").ToString()
                cboItem.Text = SqlDtr("Customer").ToString()
                dwnCustomers.Items.Add(cboItem)
                dwnCustomers.DataBind()
            End While

 

[kurie]

thansk very much