Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

/includes/a_system.asp, line 81

I get the error when I try to use the System Setups in Admin and tell the field
isManager to be visible on the registration form. I am using Spooky Login 2.33.

I don't believe my error is in the a_system.asp since I did not edit that file.
I don't really know for sure so please correct me if I'm wrong. But just to be safe,
here is line 81 of a_system.asp:

objRs.fields.item(9).Value = ShowField

Here are the edits I made to the files per the instructions. The field name is
"isManager" and is a text field of size 1. ANd it is added to the end of the
spooky_login97.mdb.

File a_config.asp

...line 90 Dims
Private isManager

...line 99 - 103 Increment Array
Dim arrValInput(31)
Dim arrErrMsg(31)
Dim arrFieldNames
ReDim arrFieldNames(31)
Dim arrMaxLth(31)

...line 108 - 109 Add column name and add new value
CONST strAllFields = "UserID,x_firstname,x_lastname,UserName,x_email,EmailUse,Password,AddDateTime,UpdateDateTime,AccessLevel,Admin,ActiveAccount,AccountExpires,RemoteAddress,LoginCount,x_company, x_address, x_city, x_state, x_zip, x_country, x_phone, x_fax, x_website, x_UserFound,aps_uid,x_RefId,x_trans_id,x_auth_code,u_id,isManager"
CONST strDefShowFields = "1001111111111110000000000000000"

...line 133 Add new column max length
arrMaxLth(31) = 1 ' isManager

...line 151 Add value to "Sub GetExtendedInfo"
isManager = objRs.fields.item(30).value

...line 169 Add value to "Sub SetExtendedInfo"
If isManager <> "" AND isManager <> 0 then objRs.fields.item(30).value = isManager

...line 189 Add value to "Sub ValidateExtendedInfo"
isManager = ValidateInput(Request.Form("isManager"),3,31)

...line 292 Add new text for column name
CONST txtIsManager = "Manager Y or N"

File admin_users.asp

...line 252-254 Add new Display Input
If (Mid(strShowField, 31, 1) = "1") then
Call DoInputRow ("isManager",txtIsManager, "", 1,31,1)
End if

File register.asp

...line 1214-126 Add new Display Input
If (Mid(strShowField, 31, 1) = "1") then
Call DoRegInputRow ("isManager",txtIsManager, isManager, 1,31,1)
End if

File a_users.asp

...line 173 Add new array
isManager = aResults(30,0)

Any help will be greatly appreciated...

I extended it in that or the next version to allow for new fields. Yours may still be 30?

Thanks much for the help...

Using a binary code via a text field is a great way to supply a config, and its amazing how fast you can use up each '0' or '1'