>How can I force the closing of a private datasession. I have reviewed previous threads and can’t find an easy answer. I can close all objects in the datasession but this will not help. Thanks in advance for your feedback.

*VFP7
LOCAL oObj, lnSessions, ix
FOR EACH m.oObj IN application.Objects
 IF pemstatus(m.oObj,'baseclass',5) AND LOWER(m.oObj.Baseclass) = 'form'
   IF PEMSTATUS(m.oObj,"Dataenvironment",5)
      m.oObj.Dataenvironment.CloseTables
   endif
 ENDIF
 m.oObj = .null.
ENDFOR
lnSessions = ASESSIONS(arrSession)
FOR m.ix=1 TO m.lnSessions
  SET DATASESSION TO arrSession[m.ix]
  CLOSE DATABASES all
endfor
SET DATASESSION TO thisform.DataSessionId
CLOSE DATABASES all

Is working for me.
Cetin