Hai ragione Optime, non mi sono espresso assolutamente bene.
Con il codice che abbiamo risolto per riempire la combo con i nomi dei fornitori, volevo riempire un'altra combo di prodotti del Fornitore selezionato.
Ho riproposto lo stesso codice per riempire la seconda combo_articolo ma chiaramente non va bene perchè sbaglio SICURAMENTE qualcosa
Ma non riesco a capire cosa, se sia nella funzione where....
codice:
Dim strsql1 As New OleDbCommand("Select ID, FORNITORE, TIPOLOGIA_PRODOTTO From DB_FORNITORI Where FORNITORE='" + Cbo_Fornitore_1.Text + "'", Connetti
oppure nella ricerca stessa
codice:
While myreader1.Read()
Cbo_Tipologia.Items.Add(myreader1("TIPOLOGIA_PRODOTTO"))
End While
Spero di essermi spiegato meglio 
Grazie per l'attenzione
SanMichele