mi sono dimenticato a postare il mio codice :
codice:
fileReader = _
        My.Computer.FileSystem.OpenTextFileReader(Application.StartupPath + "\" + "Config.txt")

        stringReader = fileReader.ReadToEnd()
        archivio = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + stringReader)
        Dim numero As String = "1001G"
        Dim ricerca As New OleDb.OleDbDataAdapter("SELECT * FROM Articoli_anagrafica WHERE Codice_barra = @Valore1", archivio)
        ricerca.SelectCommand.Parameters.Add("@Valore1", OleDbType.Char).Value = numero
        ricerca.Fill(da, "Articoli_anagrafica")
        
        If Not (Not (ricerca Is Nothing OrElse ricerca Is DBNull.Value) AndAlso ricerca.ToString = numero) Then
            Application.Exit()
        End If


        DataGridView1.DataSource = da.Tables(0)
cosa sbaglio ?