Ayuda con.HeaderText

Buenas tengo un HeaderText de la una columna que em propiedades del datagridview esta puesta asi Fecha_Cosecha 

pero a la hora de visualizar hago que se visualice asi Fecha Cosecha 

lo que pasa que a la hora de guardarlo en el xml me lo guarda Asi Fecha Cosecha y lo que quiero que me lo guarde Fecha_Cosecha

Gracias a todos

DataGridView2.Columns(1).HeaderText = "Fecha Cosecha"

Esto cambia el nombre

y este codigo de aqui abajo me lo guarda en el xml

 Dim obj As Object
        Dim Archivo As Object
        Dim x As Integer = 0
        Dim col As Integer = 0
        obj = CreateObject("Scripting.FileSystemObject")
        Archivo = obj.CreateTextFile("Datos\Inventario.xml", True)
        Archivo.Writeline("<?xml version='1.0' encoding='WINDOWS-1252'?>") '"<?xml version='1.0' encoding='utf-8'?>"


        For x = 0 To DataGridView2.Rows.Count - 1



            If DataGridView2.Rows(x).Cells(0).Value = "" Then
            Else
                Archivo.Writeline("<Inventario>")
                Archivo.Writeline("<Id>" & CStr(x) & "</Id>")
                For col = 0 To DataGridView2.Columns.Count - 1 'CUENTA LAS COLUMNAS
                    Archivo.Writeline("<" & DataGridView2.Columns(col).HeaderText & ">" & DataGridView2.Rows(x).Cells(col).Value & "</" & DataGridView2.Columns(col).HeaderText & ">")
                Next
                Archivo.Writeline("</Inventario>")
            End If
        Next


        Archivo.close()