Ho provato:

code:
dim drw as DataRow
dim dRead as oleDbDataReader
dRead = OleDbCommand1.ExecuteReader()

for each dr in dRead.rows
combobox.items.add(dr(NUMERO COLONNA CHE TI INTERESSA)
next

il comando dRead.rows non viene accettato, l'oggetto di tipo OleDbDataReader non ha quella proprietà...


Poi ho provato:

ComboBox1.DataSource = DataSet11.Tables("tabgenere")
ComboBox1.DisplayMember = DataSet11.Tables("tabgenere").Columns("genere").To String

Sparisce la scritta ComboBox1 dalla combo box ma non ho nessun campo nell'elenco...