Copiar Dropdownlist

[TaM]

Como puedo copiar un DropDownList?

He hecho lo siguiente (saco los datos de una bd):

dd = New DropDownList

While oReaderValueText.Read()
Dim newListItem As New ListItem

newListItem.Text = oReaderValueText.Item(1)
newListItem.Value = oReaderValueText.Item(0)
dd.Items.Add(newListItem)

End While

oDropDownList.DataSource = dd.Items
oDropDownList.DataBind()

El problema es que luego, al hacer la copia, me pone como valor el texto.
Es decir, dd.Items(0).value m da 1, dd.Items(0).value m da "portatil" y luego oDropDownList.Items(0).value m da "portatil"

Qué hago mal??

Gracias!

[TaM]

Por si a alguien le interesa, lo he arreglado así:

dd = New DropDownList
Dim i As Integer

While oReaderValueText.Read()
Dim newListItem As New ListItem

newListItem.Text = oReaderValueText.Item(1)
newListItem.Value = oReaderValueText.Item(0)

dd.Items.Add(newListItem)

End While

For i = 0 To dd.Items.Count - 1
Dim newListItem As New ListItem

newListItem.Text = dd.Items(i).Text
newListItem.Value = dd.Items(i).Value

oDropDownList.Items.Add(newListItem)
Next

oDropDownList.DataBind()