devi sempre chiudere tutte le connessioni e ripulire gli oggetti...
es:

Rec.Close
Conn.Close
Set Rec = Nothing
Set Conn = Nothing