Private Sub WriteXml() Try Create(strFName, “NewDataSet”) SaveXMLFile(“gg”, “NewDataSet”, True) Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Function Create(ByVal FileName As String, ByVal Root As String) As Boolean D