Try this:

Dim _index As Integer
Dim _Item As New ListItem(DS_Products1.Tables(0).Rows(selIndex).Item("SupplierCode"))
_Item.Value = _Item.Text
_index = Me.DropDownList1.Items.IndexOf(_Item)
DropDownList1.SelectedIndex = _index