[vb.net]Riferimento ad un oggetto non impostato su un'istanza di oggetto

[gioviskius]

Ciao a tutti e grazie per le risposte che mi darete...

Come dal titolo ho questo problema.
In pratica sto facendo un applicazione che prende degli articoli da access e crea un file .txt secondo un preciso tracciato record.
Siccome l'utente che dovrà utilizzare questa applicazione ha WINDOWD 7 A 64 BIT, proprio oggi ho dovuto cambiare la compilazione e forzarla a x86.

Facendo questo però mi aveva dato una serie di avvertimenti che in pratica ho risolto.
(dovevo mettere .tostring)

IL problema è che mi restituisce l'errore "Riferimento ad un oggetto non impostato su un'istanza di oggetto " e non mi evidenzia nessuna riga di codice

Ho visto che l errore deriva dal mettere NEW ad un oggetto. ma non capisco dove

Questo è il codice:

Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Imports System.Windows.Forms
Imports System.Windows
Public Class Form1
    Dim i As Integer
    Dim desc(10000) As String
    Dim id_articolo(10000) As String
    Dim barcode(10000) As String
    Dim prezzo(10000) As String
    Dim gruppo(10000) As String
    Dim id_gruppo(10000) As String
    Dim n As Integer
    Dim provider As String
    
    'Dim connessione As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Documents and Settings\Stefano\Desktop\PRG_X_CLIENTI\PC_OVER\InfoTabacchi.mdb;")
    Dim adapter As New OleDbDataAdapter()
    Dim dataset As New DataSet()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If txt_path.Text = "" Then
            MessageBox.Show("ATTENZIONE!!! Inserire la cartella in cui verrà creato il file [ARTICOLI.TXT]!!!", "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
            GoTo fine
        End If
        If txt_info.Text = "" Then
            MessageBox.Show("ATTENZIONE!!! Inserire il percorso del DataBase InfoTabacchi!!!", "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
            GoTo fine
        End If
        readinfo()
fine:
    End Sub
    Sub readinfo()

        Dim connessione As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & txt_info.Text & ";")
        'Dim connessione As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & txt_info.Text & ";")
        adapter.SelectCommand = New OleDbCommand
        adapter.SelectCommand.Connection = connessione
        da_elab.Visible = False
        elab.Visible = True
        completata.Visible = False
        Me.Refresh()
        n = 0

        adapter.SelectCommand.CommandText = _
        "SELECT Articoli.IDArticolo, Articoli.Codice, Articoli.Descrizione, Articoli.PrezzoVen, " & _
        "Articoli.IDGruppo, Gruppi.IDGruppo, Gruppi.Gruppo FROM Gruppi INNER JOIN Articoli ON " & _
        "Gruppi.IDGruppo = Articoli.IDGruppo"
        adapter.SelectCommand.CommandType = CommandType.Text
        connessione.Open()
        adapter.Fill(dataset, "Articoli")

        connessione.Close()

        With grid
            .AutoGenerateColumns = True
            .DataSource = dataset
            .DataMember = "Articoli"
        End With
        'grid.Visible = True
        For Me.i = 1 To 10000
            If grid(2, n).Value.ToString = "" Then
                Exit For
            End If
            id_articolo(i) = grid(0, n).Value.ToString
            barcode(i) = grid(1, n).Value.ToString
            prezzo(i) = grid(3, n).Value.ToString
            id_gruppo(i) = grid(4, n).Value.ToString
            gruppo(i) = grid(6, n).Value.ToString
            n += 1
        Next
        formatta()
        carspec()
        scrivifile()


fuori:
        adapter = Nothing
        connessione = Nothing
    End Sub

Come posso fare???????
Grazie a tutti

[Pirelli72]

Presumo che l'errore si verifichi in fase di esecuzione e non in fase di compilazione, giusto?
Dal codice che hai postato, a parte qualche cosa che si potrebbe aggiustare , tipo il.

Goto fine

che dovrebbe diventare un:

Exit Sub

o meglio ancora un:

Exit Try

dal blocco Try.....Catch che non hai messo per intercettare le eccezioni che si possono verificare, non vedo niente che possa creare l'eccezione a cui ti riferisci.

[VBNET79]

Ma ci puoi dire in che riga esatta ti da l'errore?