Hi all..
I have Solved this Thread By Myself..Here is the code if some one needs..
Public Sub xmlAppend(ByVal TaskId As String, ByVal Status As String)
Dim Tskid, stats As String
Tskid = TaskId.ToString.Trim
stats = Status.ToString.Trim
Dim myDoc As Xml.XmlDocument = New Xml.XmlDocument
myDoc.Load("d:\final.xml")
Dim root As XmlNode = myDoc.DocumentElement
Dim myElement As XmlElement = myDoc.CreateElement("Task")
Dim myName As XmlElement = myDoc.CreateElement("Name")
myName.InnerText = Tskid
Dim myString As XmlElement = myDoc.CreateElement("Satus")
myString.InnerText = stats
root.AppendChild(myElement)
myElement.AppendChild(myName)
myElement.AppendChild(myString)
myDoc.Save("d:\final.xml")
MsgBox("Xml File GeneratedUpdated")
End Sub