Do you close Database and all Recordset objects this way:

rs1.Close
set rs = nothing
rs2.Close
set rs2 =nothing
'.
'.
db.Close
set db = nothing



This steps should kill your current connection and clear memory
Vlad