![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
'OLEDB 连接字符串
cns = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" + Server.MapPath("App_Data\Db.mdb")
Dim da As New OleDbDataAdapter(sql, cns)
da.Fill(ds, "vView")
'ODBC 连接字符串
cns = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" + Server.MapPath("App_Data\Db.mdb")
Dim da As New OdbcDataAdapter(sql, cns)
da.Fill(ds, "vView")