error '8007202f' Automation error A constraint violation occurred

I have an old COM+ object that we've used to create AD user accounts with information from our HR system. This process has been broken since a recent upgrade, so I'm attempting to modify the object to point to a new DC and a new inforamtion store during mailbox creation. After modifying the code I am unable to get an account to be crated and the following error appears:

error '8007202f' Automation error A constraint violation occurred

I am not a developer and I know that this is a long shot but if anyone has any insight into if this is an AD issue or one with VB 6, any help at all would be greatly appreciated. I think this is the relevent code but again, I'm an admin not a developer:

Const ADS_OPTION_SECURITY_MASK = 3
Const ADS_SECURITY_INFO_DACL = 4

Dim domain As IADsContainer

Set domain = GetObject("LDAP://OU=New Users,DC=Company,DC=com")
Set oSD = domain.Get("ntSecurityDescriptor")
domain.Put "ntsecuritydescriptor", oSD
domain.SetOption ADS_OPTION_SECURITY_MASK, ADS_SECURITY_INFO_DACL
domain.SetInfo

Dim thenewuser As IADsUser
recip = "CN=" & common_name
Set thenewuser = domain.Create("user", recip)


thenewuser.samAccountName = Customer_ID
thenewuser.userPrincipalName = Customer_ID

Thanks in advance for any help.