Hum, useally hte problem occurs in a97!
This often means that you have a open recordset somewhere in your code. This
is especially noticeable for GLOBAL reocrdset code.
So, for all reocrdsets that YOU open, make sure you both close the
reocrdset, and then set the recordset to nothing.
Example code to open a table, display all names to the debug window, and
then close:
dim rstRecs as dao.recordset
dim strSql as string
strSql = "select LastName from tblCustomers where City = 'Edmonton'"
set rstRecs = currentdb.OpenrecordSet(strSql)
do while rstRecs.EOF = false
debug.Print rstRecs!LastName
rstRecs.MoveNext
loop
rstRecs.Close
set rstRecs = nothing
So, check all of your recordset code, and make sure you always close the
recordset when done. That should fix the exit problem. You don't of course
have to close stuff like recordsetclone...but ONLY stuff YOUR code opens...
--
Albert D. Kallal (MVP)
Edmonton, Alberta Canada
No************@msn.com http://www.attcanada.net/~kallal.msn