strconn= "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" &HttpContext.Current.Server.MapPath("/aaa/trydatabase/trycards.mdb")
你等一下再开就可以了,因为你没有关闭的原因!要等他自己关闭才可以再打开

解决方案 »

  1.   

    <%@ Page Language="VB" ContentType="text/html"  %>
    <%@ import namespace="system.data" %>
    <%@ import namespace="system.data.oledb" %>Sub Page_Load(Src As Object, E As EventArgs)
    If Not IsPostBack Then 
    B()
    End If
    End Subsub B()
    dim a as new oledbconnection()
    a.connectionstring="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("db1.mdb")
    dim b as new oledbdataadapter("select * from zl",a)
    dim c as new dataset()
    b.fill(c,"zl")
    datalist1.datasource=c
    datalist1.databind()
    end sub 就OK了~~~~~~
    小妹子接分了`~~~~~