[AccessD] Elegant Solution?

Hi Everyone,
 
Does anyone have any code or such that handles the following elegantly:
 
Dim dbs as DAO.Database
Dim rst as DAO.Recordset
 
Set dbs etc etc
 
Do whatever here
 
dbs.close
dbs = nothing etc etc
 
I am tired of having do the above to open database connections and
recordsets in the above manner in every Sub or Function. Surely there's
a  more elegant method that someone has come up with here you just parse
the SQL Statement through or something...
 
Any suggestions or links will be greatly appreciated...
 
Regards
Vlad