done!

public class datasettoxml : inherits system.web.ui.page

  private sub page_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
    dim objconn as sqlconnection
    dim strsql as string

    strsql = "select top 10 * from customers"
    objconn = new sqlconnection(configurationsettings.appsettings("connectionstring"))

    dim sdacust as new sqldataadapter(strsql, objconn)
    dim dstcust as new dataset()

    sdacust.fill(dstcust, "customers")
    save data to xml file and schema file
    dstcust.writexml(server.mappath("customers.xml"),xmlwritemode.ignoreschema)
    dstcust.writexmlschema(server.mappath("customers.xsd"))
  end sub

end class 
   到此我为写了一篇那么简单的文章而深感歉意，但实际上，真正应该感到抱歉的应该是微软的.net,是他让我们从数据表把数据转换为xml文档变的如此简单，我希望您能相信这一点！