如何使用ASP通过ADO，连接mdb数据库，求救，在线等待，解决即结帖

我使用如下语句，总在报错，错误为Microsoft OLE DB Provider for ODBC drivers

我的语句是这样

1   
2dim db_conn   
3dim dbRecordset   
4set db_conn = Server.CreateObject("ADODB.Connection")   
5db_conn.open "FILEDSN=test.dsn"   
6.   
7.   
8.   

test.dsn 以在ODBC管理的文件DSN创建了
可总是报错，劳驾帮忙
---------------------------------------------------------------

Dim mconn
Dim connstr
Set mConn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("test.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};Pwd=test;"
mConn.Open connstr
---------------------------------------------------------------

同意
---------------------------------------------------------------

1   
2Set Conn=Server.CreateObject("ADODB.Connection")   
3Connstr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="+server.mappath("data.mdb")+";DefaultDir='';DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=15;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"   
4Conn.Open connstr   

---------------------------------------------------------------

dsn="driver={microsoft access driver (*.mdb)}" & ";dbq=" & server.mappath("db\message.mdb")

set conn=server.createobject("adodb.connection")
conn.open dsn
set rs=server.createobject("adodb.recordset")
sql="select * from mess where pwd like '%1%' order by id"

rs.open sql, conn,1,1
do while not rs.eof
uid=rs("uid")
pwd=rs("pwd")

response.write""&uid&","&pwd&"

1<br/>

"
rs.movenext
loop

rs.close
set conn=nothing
---------------------------------------------------------------

Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=xxx;uid=xxx;pwd=xxx"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open tableName,Conn,3,3
...
RS.Close
conn.close

Jinny