Consiglio :

Se popoli cosi' una Combo incappi in un paio di incovenienti.
Ti conviene fare cosi'

codice:
Dim ArrCombo as new ArrayList

While DR.Read
   ArrCombo.Add(DR.GetString(0))
Wend
DR.Close

MiaComboBox.DataSource = ArrCombo
Per l' indice setta

MiaComboBox.SelectedItem = 0