codice:
if reader.hasrows =true then
Do While reader.Read() //Qui ho il problema di riempire la listbox FrmCaricoProdotti
FrmCaricoProdotti.items.add(reader("marca"))
FrmCaricoProdotti.ValueMember = reader("id")
Loop
else
frmcaricoprodotti.items.add("Nessun Prodotto trovato")
end if
guarda se funziona... non ho provato
ciao