'试了一下,我是正常的:
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.ComponentModel
Imports system.Web.UI.WebControls
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xmlpatha As String
xmlpatha = System.Web.HttpContext.Current.Server.MapPath("~/App_Data/AUTHORS.XML")
Dim myDataSet As New DataSet
myDataSet.ReadXml(xmlpatha)