C# / VB.NET - VISUAL BASIC 2010 - SALVATAGGIO DATI

Buonasera a tutti voi,
vi pongo il seguente problema.
In un form vi è un pulsante LEGGI con il seguente codice:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim leggi As New System.IO.StreamReader("K:\cappero.csv")
        Dim riga As String
        Dim dividi() As String
        Do While leggi.Peek() <> -1
            riga = leggi.ReadLine()
            dividi = Split(riga, ",")
            DataGridView1.Rows.Add(dividi)
        Loop

    End Sub

Vi è inoltre un pulsante SALVA con il seguente codice

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim scrivi As New System.IO.StreamWriter("K:\cappero.csv")
        Dim a As Integer
        Dim b As Integer
        Dim testo As String
        For a = 0 To DataGridView1.RowCount - 2
            testo = ""
            For b = 0 To 2
                If b <> 2 Then
                    testo = testo + DataGridView1.Rows(a).Cells(b).Value + ","
                Else
                    testo = testo + DataGridView1.Rows(a).Cells(b).Value
                End If

            Next
            scrivi.WriteLine(testo)
        Next
        scrivi.Close()
    End Sub

Infine, vi è un datagridview1.
Nell'evento load del form1 è inserito il seguente codice

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        DataGridView1.ColumnCount = 3
        DataGridView1.Columns(0).Name = "tipo"
        DataGridView1.Columns(1).Name = "prezzo"
        DataGridView1.Columns(2).Name = "quantità"
        DataGridView1.Columns(0).HeaderText = "tipo prodotto"
End sub

Quando avvio l'applicazione, inserisco i dati e clicco sul pulsante SALVA.
Esce fuori il seguente messaggio di errore:
"Il processo non può accedere al file K:\cappero.csv perchè in uso in altro processo"
Vi chiedo perchè esce il messaggio, dove ho sbagliato e se vi è una soluzione al problema.
Vi ringrazio per l'attenzione che porrete al problema e chiedo scusa per il disturbo.
NERITON

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim leggi As New System.IO.StreamReader("K:\cappero.csv")
        Dim riga As String
        Dim dividi() As String
        Do While leggi.Peek() <> -1
            riga = leggi.ReadLine()
            dividi = Split(riga, ",")
            DataGridView1.Rows.Add(dividi)
        Loop
 
    End Sub

Devi chiudere il file con leggi.close al termine della funzione

Non ti adirare!!
Chiedo scusa per la grossa svista!
Grazie
NERITON

non volevo sembrare arrabbiato anzi il forum è fatto apposta per il confronto e la correzione dei propri errori scusami se sono sembrato scortese

Caro Saik,
non devi assolutamente scusarti, ho solo visto la faccetta verde e ho pensato che avessi scritto qualcosa che non andava bene: d'altra parte sono nuovo dei forum e devo imparare ancora tante cose.
Ti saluto e ti ringrazio ancora x l'aiuto.
Neriton