dataset 与xml解决方法

dataset 与xml
现在有一个dataset，直接用如下方法：
                        Ds.DataSetName   =   "Library "
                        Dim   writer   As   New   Xml.XmlTextWriter( "d:\aa.xml ",   System.Text.Encoding.Default)
                        writer.Formatting   =   System.Xml.Formatting.Indented
                        writer.Indentation   =   4
                        writer.WriteStartDocument()
                        Ds.WriteXml(writer)
                          writer.Close()
可以得到如下格式的xml
-   <Library>
-   <Application>
    <AppID> 5 </AppID>  
    <ApplicationName> HEAP </ApplicationName>  
    <Description> V1.0 </Description>  
    <ClassID> Adsystech.AppExtension </ClassID>  
    <FileName> ApplicationExtension.Dll </FileName>  
    <Height> 700 </Height>  
    <Width> 930 </Width>  
    <TreeWidth> 200 </TreeWidth>  
    <Timeout> 30 </Timeout>  
    <TimeoutExit> true </TimeoutExit>  
    <Custom   />  
    <AppMenuID> 1 </AppMenuID>  
    <TimeoutWarning> 10 </TimeoutWarning>  
    <Version> 1 </Version>  
    </Application>
</Library>
我现在想得到如下形式的xml：

-   <Client>
-   <PersonID   PersonIDHashing= "0 ">
    <PersonIDNum> 3 </PersonIDNum>  
    </PersonID>
-   <LegalFirstName   concathash= "0 ">
    <Unhashed> Abigail </Unhashed>  
    </LegalFirstName>
-   <LegalLastName   concathash= "0 ">
    <Unhashed> Adams </Unhashed>  
    </LegalLastName>
-   <SocialSecurityNumber   concathash= "0 ">
    <SocialSecNumberQualityCode> 1 </SocialSecNumberQualityCode>  
    <Unhashed> 111223333 </Unhashed>  
    </SocialSecurityNumber>
-   <DateOfBirth   concathash= "0 ">
    <Unhashed> 1970-12-02 </Unhashed>  
    </DateOfBirth>
-   <Ethnicity   concathash= "0 ">
    <Unhashed> 1 </Unhashed>  
    </Ethnicity>
-   <Gender   concathash= "0 ">
    <Unhashed> 0 </Unhashed>  
    </Gender>
-   <Race   concathash= "0 ">
    <Unhashed> 5 </Unhashed>  
    </Race>
</Client>
请问用由一个dataset可以直接得到我想要的xml么？