Protected Sub AccessDataSource1_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEventArgs) Handles AccessDataSource1.Selecting
        Dim conn As New Data.OleDb.OleDbConnection
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data/#db1.mdb")
        conn.Open()
        Dim comm As New Data.OleDb.OleDbCommand
         = "select * typename from ptype where ppid=0"
        comm.Connection = conn
        Dim dr As Data.OleDb.OleDbDataReader
        dr = comm.ExecuteReader
      
        AccessDataSource1.DataFile = Server.MapPath("App_Data/#db1.mdb") '出错行
        AccessDataSource1.DataBind()