Dim loSFSUserBO As MicroFour.StrataFrame.Security.BusinessObjects.SFSUsersBO = New MicroFour.StrataFrame.Security.BusinessObjects.SFSUsersBO()Try BusinessLayer.TransactionBegin("PENSOLUTIONOFFICE", "PENSOLUTIONOFFICE", Data.IsolationLevel.ReadCommitted) loSFSUserBO.Add() loSFSUserBO.us_FirstName = Me.PSOUser_Firstname.Text loSFSUserBO.us_MiddleName = Me.PSOUser_Middle.Text loSFSUserBO.us_LastName = Me.PSOUser_Lastname.Text loSFSUserBO.us_Username = Me.PSOUser_Username.Text loSFSUserBO.us_PasswordPlainText = Me.PSOUser_Password.Text loSFSUserBO.us_IsInactive = Me.PSOUser_chkAccountinactive.Checked loSFSUserBO.us_IsAdministrator = Me.PSOUser_chkAdministrator.Checked loSFSUserBO.us_PasswordNeverExpires = Me.PSOUser_chkPassNeverExpires.Checked loSFSUserBO.us_UserMustChangePwNextLogin = Me.PSOUser_chkUserMustChangePass.Checked loSFSUserBO.us_UserCannotChangePassword = Me.PSOUser_chkUserCantChangePass.CheckedCatch ex As Exception lcErrorMessage = ex.Message BusinessLayer.TransactionRollback("PENSOLUTIONOFFICE", "PENSOLUTIONOFFICE")End Try