Problems Connecting to A Database

When I try connectin to a database using the following code:
where = (server.mappath("..\data\data.mdb"))
dsn = "driver={Microsoft Access Driver (*.mdb)};dbq="&where&"; pwd="
Set Recordset = Server.CreateObject("ADODB.Recordset")
Connection.Open DSN
It brings back the following error message:

Microsoft VBScript runtime error '800a01a8'
Object required: ''

Help me please!!!

Try this...

m_DB = Server.MapPath("/Web/ResearchTest/AdminLogin/Db/Login.mdb")
strSQL = "SELECT * FROM tbl_Login"

Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Provider = "Microsoft.Jet.OLEDB.4.0"
dbConn.ConnectionString = "Data Source=" & m_DB
dbConn.Open

Set rsConn = Server.CreateObject("ADODB.Recordset")
rsConn.Open strSQL, dbConn,1,3


Regards,
:o Mac :)