"OLEDB 连接字符串
cns = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" + Server.MapPath("App_DataDb.mdb")
Dim da As New OleDbDataAdapter(sql, cns)
da.Fill(ds, "vView")
"ODBC 连接字符串
cns = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" + Server.MapPath("App_DataDb.mdb")
Dim da As New OdbcDataAdapter(sql, cns)
da.Fill(ds, "vView")