A dirti la verità ho provato e, con qualche ritocco funziona, ma lasciatelo dire, è un codice un poco strano:
codice:
'recupero un reader
'nota: da non utilizzare mai, qui è solo per prova
Dim wk_reader As OleDbDataReader = Libreria.GetDataReader(StringaConnessione, "SELECT ID, TESTO FROM CAMPI ORDER BY ID")
'leggo la prima riga
'se restituisce false, non c'è prima riga
wk_reader.Read()
'creo un ListItem
'è necessario il giusto cast
Dim ListGruppo As New ListItem(wk_reader("testo").ToString, wk_reader("id").ToString)
'chiudo il reader per chiudere la connessione
wk_reader.Close()
'aggiungo l'item alla lista
dd_gruppo.Items.Add(ListGruppo)