ASP.NET VB连接Access数据库示例：Visual Studio 2000兼容

<%@ Import Namespace="System.Data" %>
     <%@ Import NameSpace="System.Data.OleDb" %>
     <script laguage="VB" runat="server">
 
     Dim myConnection As OleDbConnection
         Dim myCommand As OleDbCommand
         Dim dr As OleDbDataReader
         Sub page_load(sender As Object, e As EventArgs)
             '1.连接数据库
             Dim dbname As String
             dbname = Server.MapPath("AAA\BBB.mdb")
             myConnection = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" & dbname)
             myConnection.Open()
          
                  End Sub
    

'引入OLEDB命令空间
        
       
         Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
             '定义一个OLEDB连接并实例化它
             Dim con As New OleDbConnection
             '定义一个OLEDB命令并实例化他
             Dim cmd As New OleDbCommand
             '定义一个OLEDBReader方法来读取数据库
             Dim dr As OleDbDataReader
             '初始化con的连接属性，使用OLEDB模式，数据源为：你指定下路径，我的是在D盘
             Dim dbname As String
             dbname = Server.MapPath("AAA\BBB.mdb")