codice:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim ricerca As New OleDb.OleDbCommand("SELECT Descrizione FROM Articoli_anagrafica WHERE Codice_barra = '" + DescrizioneTextBox.Text + "' ", archivio)
        Dim leggirisultato As OleDbDataReader
        archivio.Open()
        leggirisultato = ricerca.ExecuteReader()
        DescrizioneTextBox.Text = leggirisultato(0)
        leggirisultato.Close()

        archivio.Close()

    End Sub
End Class
ho provato così ma adeso mi dice :Nessun dato esistente per la riga/colonna. perchè non trova il numero che immetto nella casella "DescrizioneTextBox.text"anche se nel database esiste ???