Dim dbeng 'As DAO.DBEngine
Dim db 'As Database
Dim rs 'As Recordset
Dim qry 'As Query
Const dbOpenSnapshot = 4 'DAO.RecordsetTypeEnum
Const dbReadOnly = 4 'DAO.RecordsetOptionEnum
Const dbOpenDynaset = 2 'DAO.RecordsetTypeEnum
	Set dbeng = CreateObject("DAO.DBEngine.36")
	Set db = dbeng.OpenDatabase("MDB_FILE_NAME_HERE")
	Set qry = Db.QueryDefs("QUERY_NAME_HERE")
	qry.Parameters(0) = "PARAMETER_VALUE_HERE"
	Set rs = qry.OpenRecordset(dbOpenSnapshot, , dbReadOnly)