帮我看下代码出错了
Protected Sub AccessDataSource1_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEventArgs) Handles AccessDataSource1.SelectingDim 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()