调试dataadapter空间出错,不允许申请dataadapter, new时 出错,帮忙调试

<%@import namespace="system.data"%>
<%@import namespace="system.data.oledb"%>
<html>
<script language="vb" runat=server>
    sub page_load(source as object,e as eventargs)
                 if not page.ispostback then
                        bindgrid
                 end if
    end sub
    sub changepage(sender as object,e as datagridpagechangedeventargs)
            dg.currentpageindex = e.newpageindex
            pagenumber.text="第" & dg.currentpageindex+1 & "页"
            bindgrid
     end sub
    sub bindgrid()
       

dim olecon = New OleDbConnection( " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "shopping.mdb" ) )

        dim ds as new dataset
        dim total as integer
        olecon.open
        dim conn as new oledbdataadapter("select * from books1 order by notetime",olecon)
        conn.fill(ds,"tabbooks")
        total=ds.tables("tabbooks").rows.count
        totalnumber.text="共" & total\dg.pagesize+1 & "页"
        if total=0 then
          response.write("没有可显示的记录")
        exit sub
        end if
        dg.datasource=ds.tables("tabbooks").defaultview
        dg.databind
        olecon.close
        olecon=nothing
    end sub
</script>
<head>
<title>
论坛
</title>
</head>
<body>
<form runat=server><asp:label id="pagenumber" runat=server/>
<asp:label id="totalnumber" runat=server/>
<a href="addnew.aspx">添加新帖子</a>
<table width="558" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr align="center" bgcolor="#FF3399">
    <td height="48" colspan="3">论坛</td>
  </tr>
  <tr>
    <td width="180" height="33" align="center" bgcolor="#CCFF33">作者</td>
    <td width="180" align="center" bgcolor="#CEFF31">时间</td>
     <td width="198" height="33" align="center" bgcolor="#CCFF33">主题</td>
  </tr>
  <tr>
   <asp:datagrid 
         runat="server"
                id="dg" 
                autogeneratecolumns=false 
                allowpaging="true" 
                pagesize=10 
                onpageindexchanged="changepage"
                pagerstyle-nextpagetext="下一页>>"
                pagerstyle-prevpagetext="<<上一页">
    <columns>
     <asp:templatecolumn>
    <itemtemplate>
    <td height="32" bgcolor="#FFCCFF"><%#container.dataitem("usersname")%>&nbsp;</td>
    <td bgcolor="#FFCFFF"><%#container.dataitem("notetime")%>&nbsp;</td>
    <td bgcolor="#FFCFFF"><%#container.dataitem("title")%>&nbsp;</td>
  </tr>
      </itemtemplate>
     </asp:templatecolumn>
     </columns>
   </asp:datagrid>
</table>
</form>
</body>
</html>