Update فایل های CSV

سلام
من با استفاده از کدهای زیر اطلاعات فایل CSV رو داخل دیتا گرید نمایش میدم:

    
    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim sr As New IO.StreamReader("C:\Data.csv")

        Dim dt As New DataTable

        Dim newline() As String = sr.ReadLine.Split(","c)

        dt.Columns.AddRange({New DataColumn(newline(0)),

                             New DataColumn(newline(1)),

                             New DataColumn(newline(2))})

        While (Not sr.EndOfStream)

            newline = sr.ReadLine.Split(","c)

            Dim newrow As DataRow = dt.NewRow

            newrow.ItemArray = {newline(0), newline(1), newline(2)}

            dt.Rows.Add(newrow)

        End While

        dgView.DataSource = dt

    End Sub

و با استفاده از کد زیر میخوام اونو تغییر بدم؛ ولی پیغام میده: "The process cannot access the file 'C:\Data.csv' because it is being used by another process.
و نمیتونم تغییراتو ذخیره کنم.
از چه راهی میتونم فایل های CSV رو جستجو و ویرایش کنم ؟

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim iRow As Integer = GridView1.GetSelectedRows(0)

        Dim lines() As String = IO.File.ReadAllLines("C:\Data.csv")

        lines(iRow) = lines(iRow).Replace("Value", "OK")

        IO.File.WriteAllLines("C:\Data.csv", lines)

    End Sub

ممنون

احتمالا اگر sr رو خالی کنید درست بشه