QueryCodice = QueryCodice &"SELECT Codice FROM Prodotti INNER JOIN TabLeg ON Codice = Cod_prod WHERE Cod_forn="& CmbFornitori.SelectedIndex +1

P.s.
l'avevo postato a inizio discussione