set adocon=server.createobject("ADODB.Connection")
adocon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("percorso db/db.mdb")
set rsusers=server.createobject("ADODB.Recordset")


poi quando vai a fare l'open della select la apri così:
rsusers.open variabiledellaselect, adocon