Problem sa IO.StreamWriter; nekad radi, a nekad ne radi(VB 2005)

[ pgavrilo @ 10.06.2008. 17:50 ] @

Molim vas pomozite mi!
Izludi me IO.StreamWriter
Ovako mi stoji kod u proceduri

Code:
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        'Sada zapisuje podatke prvog korisnika i
        'mjenja Vrijednos "Bilo koji korisnik" na 1
        Dim w As IO.StreamWriter
        Dim KorisnickoIme, Lozinka As String
        Dim I, Brojac As Integer
        KorisnickoIme = txtKorisnickoIme.Text
        Lozinka = txtLozinka.Text
        w = New IO.StreamWriter("...\PInformation.txt")
        Brojac = 0
        For Brojac = 0 To 32 - 1
            I = Brojac
            Select Case I
                Case 0
                    w.WriteLine("Bilo koji korisnik")
                Case 1
                    w.WriteLine(1)
                Case 2
                    w.WriteLine("Korisnik 1")
                Case 3
                    w.WriteLine("Ime")
                Case 4
                    w.WriteLine(txtKorisnickoIme.Text)
                Case 5
                    w.WriteLine("Lozinka")
                Case 6
                    w.WriteLine(txtLozinka.Text)
                Case 7
                    w.WriteLine("Korisnik 2")
                Case 8
                    w.WriteLine("Ime")
                Case 9
                    w.WriteLine("Prazno")
                Case 10
                    w.WriteLine("Lozinka")
                Case 11
                    w.WriteLine("Prazno")
                Case 12
                    w.WriteLine("Korisnik 3")
                Case 13
                    w.WriteLine("Ime")
                Case 14
                    w.WriteLine("Prazno")
                Case 15
                    w.WriteLine("Lozinka")
                Case 16
                    w.WriteLine("Prazno")
                Case 17
                    w.WriteLine("Korisnik 4")
                Case 18
                    w.WriteLine("Ime")
                Case 19
                    w.WriteLine("Prazno")
                Case 20
                    w.WriteLine("Lozinka")
                Case 21
                    w.WriteLine("Prazno")
                Case 22
                    w.WriteLine("Korisnik 5")
                Case 23
                    w.WriteLine("Ime")
                Case 24
                    w.WriteLine("Prazno")
                Case 25
                    w.WriteLine("Lozinka")
                Case 26
                    w.WriteLine("Prazno")
                Case 27
                    w.WriteLine("Korisnik 6")
                Case 28
                    w.WriteLine("Ime")
                Case 29
                    w.WriteLine("Prazno")
                Case 31
                    w.WriteLine("Lozinka")
                Case 32
                    w.WriteLine("Prazno")
            End Select
        Next
    End Sub

U toku izvršavanja koda, VB označi zelenom bojom w = New IO.StreamWriter("...\PInformation.txt")
I ispiše mi ovu poruku:

An unhandled exception of type 'System.IO.IOException' occurred in mscorlib.dll

Additional information: The process cannot access the file "C:\Documents and Settings\Gavrilo\My Documents\Visual Studio Projects\Cuvar Podataka\PInformation.txt" because it is being used by another process.

Ne znam u čemu je problem. Samo znam da u nekim primerima radi, a u nekim ne.
Hvala unaprijed!
POZDRAV!