ACCESS未发现数据源名称并且未指定默认驱动程序?解决方法

ACCESS未发现数据源名称并且未指定默认驱动程序?
dim conn
dim dbpath
  set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("db/1db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=;dbq=" & DBPath
conn.CursorLocation = adUseClient

-------
请问以上的数据库连接，如何改成非odbc链接呢?
请指教！

------解决方案--------------------
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/1db.mdb")