' set commit mode
     iSession = LceGetSessionId(): 
     If bCommit = True Then
         iRet = LceSetCommitmentOn(iSession)
     Else
         iRet = LceSetCommitmentOff(iSession)
     End If
     iRet = LceOpenSession(iSession):