You can use DSNless connection to open Database.
ConnString = "driver={Microsoft Access Driver (*.mdb)};dbq=c:\mydata.mdb"
set dbuser = server.createobject("ADODB.Connection")
dbuser.Open ConnString
Set rs= Server.CreateObject("ADODB.Recordset")
sSQL = "select * from mytable"
rs.open sSQL, dbuser, adOpenStatic, adlockpessimistic, adcmdtext