Private _unit As Unit Me._unit = CType(Me.RegisterBizObj(New Unit), Unit) Me._unit.NewEntity() Me._unit.Entity.Code = currentLine(1).Substring(4, 3) Me._unit.Entity.Name = currentLine(2).Substring(6, currentLine(2).Length - 6) Me._unit.Entity.LastUpdateDate = DateTime.Now Me._unit.Entity.LastUpdateUser = Environment.UserName Me._unit.Entity.Active = True Me._unit.SaveEntity()Thanks.