Private Const filename As String = "c:\sample.xml"

    Private Sub insertData(ByVal number As Integer, ByVal count As Integer)
        Dim doc As XmlDocument = New XmlDocument
        doc.Load(filename)
        For i As Integer = 0 To count - 1
            Dim newElement As XmlElement = doc.CreateElement("data")
            newElement.InnerText = "Number " + (number + i).ToString()
            doc.DocumentElement.InsertBefore(newElement, doc.DocumentElement.FirstChild)
        Next
        doc.Save(filename)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        insertData(0, 1000)
    End Sub