Microsoft has 'tightened' up Windows 7 (as well as Office 2010). Some things that used to work (perhaps coded a little sloppy) don't anymore.
Make sure every thing you've dim'd as an object is closed and set to = NOTHING when finished with it.
dim s as someobject
set s = thisobject
'--- when done
set s = nothing
dim db as dao.database
set db = somedatabase
'---- when done
db.close
set db = nothing
Scott C